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ADC 

BTA 

JMP 

«0 CARRY i 

RAHLQ+i PUT Ml BYTE. 

IRAMLO) r JUMP TO ROUTINE SELECTED BY MENU. . 

. ; ‘i ., 

. -V"i : * ; : - •. ■ • ’ ‘ 1 * 

* V 

o 

o 

16DB A9 £2 
16DA A2 16 
16DC 20 61 23 

RANGE 

LDA 

LDX 

J3H 

4NSIL 

4N81H 

DBPLIN NO SUCH IT® 1 HEBBAQE 

.. 





o 

. 16DF 40 91 16 \ 

I6E2 4E 4F 26 &•&?: 

I6E9 93 99 43 

. omp -i-r 

Uonr,, 

HENUBL Mt.«'• ‘ . 

-no such ' itehn cM ‘ - ' 



i \)X • tV . • ..»"*; .* j.-j ' • ■ * .. ; '* ! '■ '‘ S' 


n 

o 

16EB 40 20 49 

16EB 94 49 4D 

16EE 9B 

o 

o 

16EF 93 49 40 
16F2 49 43 94 
16F9 20 49 94 

OIT ; 5 

; BYTE Jv 

"SELECT ITEM** cr v 5 ;.u if yy/ ; y W *; 

.j 



^V'r : 

n 

!-, 

N 

o 

16F0 49 40 9B 

0016 

N9IH 

HILO 

N81 

NB1/296 . _ .. , r .. 



1 • 

i_:__ 

o 

00E2 

. ' 'M*rl 

0016 

Wf NSll, v; -‘ 
•*KW'B»TM '*•' -■ 

HILO i Vi- 

: *, . :> • f 

-296*NBIH+NBI • •&&&! fjb XX •• -J‘ X • 

Bit/296 ■ XX, ''.Z' -kx 

v §\:y > \ ‘ i 
/i f ?.f. •- »■ 

*• '1 * * *. ; 


• ;•;< .jry;- • X f - 1 ■ ; r.i * v; 

f -i 
' * 

ZJLl 


o 

OOEF 

1691 

0ITL 

MNBL 

BB 

IISLO 

-296«BITH*0IT 

HENUBL 

hnbl 



# 



o 

■ ooi6 

0091 ' : 1 

hNSLL 

i 

.*■*■?» y : \;V • 

■ m' 

i' ," 

■WiaL/296'-: - 
-296«HN9LMtMNBLV^ 



1 

o 

o 

16FB A9 00 

1 PAUSE 
« 

PBHEN 

AND REDISPLAY MENU 

LDA «0 





o 

o 

| 16FD 00 49 03 

1700 A9 19 
1702 BO 40 03 


BTA y 

LDA 

BTA 

1CBLH '' , *;• , : : : : 

•21 •••’• ' 

1CBLL 

• "1 ' 


V' S ' ! 5 ? A'V ^ ?^' 

o 

0 

1709 A9 17 
1707 BD 49 03 
170A A9 10 


LDA 

8TA 

IDA 

•PHE8H 

ICBAH 

9PHESL 





o 

o 

170C 00 44 03 
170F 20 96 23 
1712 20 33 22 

y. • 

BTA 

J8R 

JBR 

ICBAL 

DBPH80 

CHROET . - _ _ 



- -y : -v' 

rn‘ : fi3 

■\. 

o 

o 

1719 4C 71 16 
1710 9B 94 99 
17IB 90 49 20 

PHES 

JMP 
. BYTE 

BHMEN 

CR. H TVPE RETURN FOR MENU* 





o 

• 

171E 52 49 94 
1721 99 92 4E 
___ 1724 20 46 4F 







;jWi 

• 


1727 92 20 40 
172A 45 4E 99 

im ri nurn I 




Q 

'<■[ 

o 


COLLEEN DISK UTILITIES 


o 

r\ 

n 

O 

o 

o 

n 

o 




O 


: o 


0017 

0010 


PME8M « 
PMEBL 

J__-_ 


PHE8/236 

-236*PMEBH+PMEB 


DIRECTORY LISTING ROUTINE 


172D 90 17 
J72F 20 B4_$2 

1732 AE AE 14 

1733 A9 90 
1737 9D 2 8 13 


■ i#####* 

DIRLOT 


I73A M27TT 
173D C9 3A 
173F DO 18_ 
1741 A9 2A 



1743 9D 28 
1746 9D 2A 


13 

13 


“1749 W 2E 
1740 9D 29 13 
174E A9 98 


LDA 

CMP 

BNE_ 

LDA 

8TA 

8TA 


DLMO 
0ETIC1 
PTR 
0CR 

PAR -I*X ASS U RE POOD TE RM 


PAR-2, X LAST CHAR OP SEARCH SPEC 
#'; IF COLON# ADD #, * 

olf ' ■ • : .l. 


13 


Ida 

8TA 

m 


#'* 

PAR-1* X 

.PAfitllJt 


“XT 


8TA 

INK 

JN)L 


1730 9D 20 
1733 E8 

1754 E8_ 

1753 E8 
1736 BE AE 
i739_JE AD 14 8TX £ 

173C A2 20 LDX 

175E 20 01 23 JSR 

20 9E 22_JSR 


PAR# X 

ij&IL 


PAR+2#X 




; ;INX 


1761 
1764 20 79 22 
1767 A9 06 

176? A2 10 _ 

1760 9D 4A 03 
176E A9 03 
1770 9D 42 03 


JSR 

LDA 

-IM: 


PTR 
JAVX 
#420 
PIOCB 

JKIElk 


R. J: &}pi P: ZP *kipl 


1773 8E"aS l^T 
1776 EO 10 


8TA 

LDA 

8TA 


8TX 

CPX 


PERX 

•6 

.#t ML 

ICAX1# X 
#OPEN 
ICCOMfJK 
CBRC 

•410 




READ DIR INFO 




OPEN 


COPV SOURCE-DIRECTORY INFO 


I/* 1 * 



L_ 

1778 DO 01 


PNE 

»+3 




177 A 30 C3 33 


JSR 

CIOCL 


o 


I77D AD AE 14 


LDA 

PTR 




1780 38 


8EC 




' 

1781 ED AD i4 ' 


BBC 

*^SAVX ~ 

• ■ • • • ■ ■ L 

o 


1704 C9 03 

” ■ • 

CMP 

- #3 

IF ONLY 3 CHARSi 18 *D:“CR. U8E 



1786 FO 03 


BEQ 

_DLBTi— 




1788 4C 98 19 

DL8T0 

JMP 

PDE8 

00 INTO COPY 

o 


178B AE AD 14 

DL8T1 

LUX 

BAVX 




178E BD 39 13 


_LDA_ 

,_FARj XL- 




1791 C9 44 


CMP 

i'D 


o 


1793 DO F3 


PNF. 

DL8T0 




1793 4C A2 19_ 11 


_JMP_ 

_PDE8i_„ 

. 80. INTO.COPY. WITH DEB-'E: ' .... 



1798 44 49 32 

DLMO 

. BYTE 

“DIRECTORY—SEARCH SPEC.LIST FILE?*. OR 



1790 45 43 34 







179E 4F 32 39 




* 


r r 

17A1 3D 3D 93 





• 


17A4 49 41 33 







17A7 43 48 30 __ 

_ 


... 

.... . . 


17AA 33 30 43 
17AD 43 2C 4C 






( 


□ 

O 


COLLEEN DISK UTILITIES 


1703 20 
170A 40 
17B9 9B 


46 49 
43 3F 


***** 


O 


o 


n 


n 


O 


o 


o 


DELETE PILE SOUTINE 


17BA FC 
17DC 20 
17BF 20 
17C2 AD 
17C3 C9 


17C7 FO 
17C9 A9 
17CB A2 
17CD 20 
I7D0 4C 
T7D3JIE 
I7D6 20 
17D9 44 
J7DCJHL 


IB DELF1L . WOOD DEMO 

84 2 2 _U9 R QETICt ___ 

79 22 U8R PERX IXIT IF FAR AH ERRORS 

29 13 LDA PAR GET DEVICE 

44 , • ..: CN F i'D O NLY ALLPM DEtETEJFtflLljL. 

BEO DFI 

LDA BNDFL ‘ 

__LDX_•NDFH 

USB DBPLIN • •= 

' ■ <■■%#*> y* HENUSL •’ • ■ 

>:.HBE. : -, PYTK :J^QLA HiaLFIl^MirL 


1A 

D3 

17_ 

At 23 
91 16 
4E.-51 

41 20 
49 33 
20 46 


, ; ; r v • ; 

• • Av i'\ •’ *K’ 


■ -,; ' ■ sw 'S- U&.’M ; :?■ X'Vttytei -.’.• i v * V> •' v;. ; ^ .. 


n 


\ 


o 


17DF 49 
17E2 90 


0017 
0003 
_17E3_A2 
17E3 AD 
17EB C9 


IQ__— 

B1 14 
4E 


JUkfl-i_-HPR 

NOTH - NDF/29& 

NUFL - -29&*NDFH+NDF 

J£J__UP X ft* 10. 


LDA ; OPT 
CHP «'N 

Jm. 


IP OPTION-R 


3N-N. NO query 7 7 - : X r :VJ: ' ^40 y '4 

STE WITH OUEHY jVe ;'.c/ . • ; ; ; ^ vm -y^ir j&Za ;r. 


u 

•5 


o 

o 


17EC A9 21 

17EE 9D 42 03 
17F1 20 C2 23 



LDA 

9TA 

JSR 

•DELETE 

ICCOMtX 

C10CL 





17F4 4C 91 

17F7 A9 E6 

17F9 A2 IB 

* 


- h : JMP" 
LDA 
LDX 

%• MENU8L ?"i ,•!•. VV-','tU/vV X 
■>--#TYOL ' vv r/-f 

•tyqh .'■ -tJ ■" ■■» .l 

WlWWW- 

•- ...... 

» \ ■ i.- 

WWWi 

’ V. '-’ t-: '■ 

o 


17FB 20 61 23 
I7FE A9 00 

1800 8D AF 14 



JBR 
LDA 
01A 

DBPLIN BAY TYPE Y TO DELETE... 

•0 




o 


1803 A2 20 h: W 
1809 A9 21 

1807 9D 42 03 

'WW- : 

V'y \¥* 

^ fox 

V IDA 

__J1IA 

9*20 'BET UP DELETE 10CH . V**:..****”'• - 7 • ' V '•'■?{.' 

9DELETE ^ • • ;* <: ‘'.V, •• ■ ’ • <> 

ICCOH> X . ... . 

FTiW^W 

it .i* ’V ’ii? f * ■■■/ 

. . •...' i 



180A A9 9E 



IDA 

•DB3L 




o 


1S0C 9D 44 03 



BTA 

ICBAL*X 






IpOF A? 13 



LDA 

•DB3H 






1811 9D 43 03 



BTA 

ICBAHtX 




o 


1814 A9 44 



LDA 

• # D 






1016 B0 9E-13_ 



_BTA. 

DBUF-3 * . .. . _ .. 


• > . .. 

: r , • • 



1819 A9 3A 



LDA 

• ': 




&> 


1810 6D AO 13 



91A 

DBUF-1 






S81E AD 2A 13 



1 DA 

PAR+1 DEVICE NUMBER OR ; PROM OP INPUT . _ .... 






1821 C9 3A 



CMP 

• ': 



.7- •' 

• 

* 

1823 DO 02 



BNE 

*+4 


I'.•* *, % 




1823 A? 31 ... . 



LDA 

..#'1 . *. . ..... .. . ... .... 

__... 

. .. M -I-- - - “ ' 




1827 8D 9F 13 



81A 

DBUF-2 KLUDGE KLUDGE KLUDGE 






102A A2 10 


nmii 

1 DX 

••10 





!_ > 
, '■) 
o 
o 
o 
o 
o 







COLLEEN DISK UTILITIES 


1B2E 9D 43 03 

BTA 

ICCOM, X 

IB31 A9 06 

Lda 

•6 

1833 9D 4A 03 

BTA 

ICAXt.X DIR READ OPEN ..... _ 

J 036 A9 29 

LDA 

RPARL 

1838 9D 44 03 

BTA 

ICBAL.X 

183B A9 13 

LDA 

#PARH _ __ . _ _____ 

163D 9D 45 03 

• BTA ■ 1 

ICBAH* X 

1840 20 C2 23 

JBR 

CIOCL 

1843 A9 Al 

LDA 

•DBUPL ;_ _ ' .. _* .. 

1845 9D 44 03 

BTA 

ICBAL*X 

1848 A9 13 

LDA 

•DBUFH 

104A 9D 45 03 

81A 

ICBAH, X _ _ 

I84D A9 04 

s LDA 

40ETRCD 





1B4F 90 4S 03 
IBSa A9 00 
IBM BD AE”T4 

1857 A2 10_ 

1859 A9 00 ' 

1B5B 9D 48 03 
1B5E A9 Oi_ 

1860 90 49 03 
1B63 20 C2 23 
1B66.AD A2 13 

1869 C9 20 
1B6D DO 68 
1B6D EE_AE 14 

1870 AD AE 14 
1B73 CD AF 14 

1876 30 DF_ 

l87B A2 00 
1B7A AO.OBiV^' 

1B7C~B9 Al 13 
1B7F C9 20 

188i_F0 09_ 

1883 9D Al 13 

1886 EB 

1887 CP_x 

1888 EO OB 
18BA 30 FO 


8TA ICCOH#X 

t- DA 40 ■ ■ 'X , : • ........ 

81A PTR HOW MANY FILES WE HAVE SKIPPED 

I READ FILENAME FROM DIR. QUERY AND DELETE 

RDFN L DX _f*10 ____ 

— [ 5 ^ 40 

BTA ICBLL.X 

____tDA_ __ft____i. 

B1A ICBLH.X 

J8R CIOCL READ A LINE FROM DIRECTORY 

_IDA_DB UF+I I F FILE LINE. THIS IB PL ANK_ 




1B8C A9 
1BBE 9D 

1892 AO 
IB94 B9 
1097 9p 
1B9A CB 
I89B EB 
J89G_CQ 
I89E 30 
I860 BE 
I8A3 A9 
18A5 9D 
1BAB EB 


as 

Al 13 
OA 

Al 13 

Ai_ia_ 


0D___ 

F4 

AD 14 

3F.. 

Al 13 


_l DA_DB UF4-I I F FILE LINE. Tl 

■ ? ~' cmp : v. •* 

BNE , DELX T1IIB IB FREE PLOCKB LINE 

INC PTR C OUNT THIS FILE ..- 

LDA PTR HAVE HE SKIPPED ENUF YET 

CMP IPTR 

_,_JB«I_RDFN_BR_1F-NB__... 

■■7 LDX BO . PUT PTR . 

g&V*.'Vi.v.unf B 2 OET PTR . . 

j HAssAei- PEkEtiLFlUE __ 1:.—- 

MUNI LDA DBUF. Y 

CMP B' END OF FILENAME 

_JIB_J!PN3__ 

BTA DBUF. X 

INX 

_iny._.....;__ 

CPX «B 

BMI MDN1 

jFilename ijl«oved.. pyr^exi_ 

MDN2 LDA O'. 

B1A DBUF. X 

__INX__ 

LDY RIO MERE EXT IB 

MDN3 LDA DBUF.Y 

_81A_DBUF..J __ 

1NY 
INX 

__CPY_*13. ... 

BMI MDN3 

BIX BAVX PUT CR HERE LATI 

IDA O'? HW QUERY 

OTA DBUF.X 

INX 

I %\a urn 






•. \XA ; 
••• i ‘ 









WHERE EXT 18 



O 


PUT CR HERE LATER . 
HXI QUERY 


ZI*t-VA 










/-S 



E 


a 

O 

O 

o 
o 
o 
o 

o 
o 
o 
o 
o 
o 
o 


COLLEEN DISK UTILITIES 


1BB2 20 
IBB9 20 
IBOB C9 
IBBA 00 
IBBC AD 
1BBF BD 
1BC2AE 
1BC9 A9 
IBC7 9D 
IBCA A2 
I BCG 20 
IBCF 20 
IBM 4C 
18D9 20 
IBOB 4C 
SBi>B A2 
1BDD A9 
IBDF 9D 
JBE2 20 
IBE9 60 
JBE6 94 
I8E9 49 
IBEC 59 
IBEF 54 


61 23 
33 22 

99_ 

9B 

AE 14 
AF 14 


JSR 

JBR 

CW 


AOHM 

9B 

Al 13 
20 

C2 23 
DB IS 


ONE 
LDA 
B1A 
LOX 
LDA 
BTA 

Lbx“ 

JSR 

JSR 


2A IS 
DB IB 
91 ^ 16 ^ 


DELX 


10 
OC 

42 03 

C2 ST 
4 99 90 


CL03I 


JMP 

JSR 

||J|| 

% mr 

Tdx 

LDA 

STA 


20 22 
22 20 
4F 20 


TYO 


JBR 

RTS 

aJJQL 


DBPLINOOA3K ABOUT THI8 FILE 
CHROET 

• 'Y • •__ ____ 

RDFN 00 DO NEXT FILENAME 

PTR NUMBER FILES WE HAVE DONE THRU 80 FAR 

IPTR _18 NEM NUMBER TO SKIEl. 

8AVX 
BCR 

obuf* x_ __ _:_ 

#620 DELETE IOCB 

CIOCL 

^CLpB|________ 

1DRD CLOSE AND REOPEN OlR READ FILE 

CL08I CLOSE DIR READ FILE 

HENU8U_ ' _;___ 

#fio 
HCLOSE 

JtCCOM* X __,___ 

CIOCL • 




IBF2 44 
IBF9 49 
1BFB_2E 
IBFB 9B 

001a_ 


'49 4C r WW 
94 49 .V. 

2E 2£V :; - • • ■ : 




TYOH 


00E6 • •' ‘^.r^'tVOL- 

IBFC 44 49 4C >( : ; DEHO 
IOF F 49 94 49, 

1902 20 46 49 
1909 4C 49 20 
1908 5? 90 45 
I90B 43 9B 


HILO TYO 

m _ TYO/296 

v-i - -' f y - ^296*TY0HLTV0 k 

. BYTE -DELEtE FILE 8PEC”«CR 


1 »»»»»»»•»»*»»» 

J_*___.—. 


COPY FILE ROUTINE 


o 

0 

O 

o 


___„_!__ _ _,_~--- 

^ I•*»»**»•»*««»»• 

)900 43 4F 90 CPHO . BYTE "COPY—FROM. TO? - iCR 

_I2tft 39 __ 

1913 46 52 4F 

1916 4D 2C 20 

_1919__5J _,_;- 

19IC 9B 

I9ID 4F 90 94 OE .BYTE “OPTION D0E8NT MAKE SENSE", CR 

_ .1920 49 4F_4E_:_^ .... ...- - -- 

1923 20 44 4F 

1926 45 53 4E 

1929 54 20 4D_ . .. . . 

I92C 41 4B 49 

I92F 20 53 49 

1932 4E 93 49.... - 

1935 9U 


MIL (I 


OE 










/^N 


t 

COLI.EEN DISK UTILITIES I 

I 


001 D 

061 . 


— 2364 QEH+ 0 E 



1936 OD 19 

CPYFIL 

.WORD 

CPHO 




1938 20 84 22 


JQR 

0 ET 1 C 1 


... . _______ 


1938 AD 81 14 


LDA 

OPT 




I 90 E 48 


PIIA 





193 F AE AE 14 


LDX 

PTR 

■ 

. 


1942 CA 


DEX ./• 





1943 A 9 9 B 


IDA 

•CR 

TERN FIRST FILENAME 



1943 9 D 29 13 


8 TA 

PAR* * 

■ . 



1948 A 2 20 


LDX 

#♦20 

i bc p 3 



194 A 20 Hi 23 


JOfl 

PIOCB 




194 D AD AE 14 


LDA 

PTR 




. 1930 BD Afi 14 


61 A 

BAVX 


' .v •. .. ; . . . 


1933 20 9 E 22 

. -; ; V '■ » ; 

J 8 H 

OETFIL 

OET SECOND FILENAME 

. ■■ ■' ■' *. . ■ v . 


1956 20 79 22 


J 8 R ^ : 

PERX 

IF PARAH ERRS. EXIT 

■ _• -- - -- :1 - 


1959 68 

P 8 RC 

PLA 





195 A AA 


TAX 


v 



1958 AD 29 13 


LDA 

PAR 

OET 1 ST LETR OF PAR AM _ _ > 



. 195 E C 9 48 

—:: '•"‘ 7 ’ * ’ 

CHP 

#'K~ 

K AND E AS SOURCE ARE SPECIAL 



1960 FO 48 V 

... V. . • ... iy- 

8 E 0 ^ 

0 DH 8 v 

H: OETS 'OPTION DOESNT MAKE BEN 86 ' FOR NOM'.'. 

' i *' .j. '*•:'j! . ;• J - . 


1962 C 9 43 


CHP 

#'E 




1964 DO OB 


BNE 

0 P 6 RC 

IF NO THEN OPEN SOURCE FILE 



1966 CE BA 14 


DEC 

RDH 

E; 80 RESHOW MENU AFTER COPY 



1969 A 2 00 


LDX 

•0 

, 

' 


196 B BE AiTT" 

*:‘ -S; V 

8 TX 

CBRC 

, . •• ' ; • ■ •: .... ■ ; ; • ; R" 



196 E 4 C 98 19 

'•••. !-■ " 

vnr 

PDE 8 

'•. ' ' _ - , • • • . 

. 4 '".fy;.;v • V’V•'\• \[:• ,- v 


1971 C 9 33 

: S OPBRC 

CHP 5 - 

SIB '■ 

. • • . • '■ . . - ”• - ---= -- 1 - ' ' 



1973 FO 38 


DEO 

ODHS 

8 : AS SOURCE SETS 0 . 0 . N. 8 . FOR NOW 



1973 EO 33 


CPX 

#'8 




1977 DO 09 


PNE 

0 P 8 RC|_ 




1979 C 9 43 

~ ; - , 

cmp : • 

~i“'C 

"• ; ..: i. V.?/' • w\' 


L '\r 

■ r '■■ . ;■*> ... • 

1978 DO 30 

"*'.T , \ •. ; 7 ;... , '• , I. 

BNE ;• 

ODMS 

r; ••; :• • • ■; f ' ■.;• c : ‘ •: i 


‘ r-v* 

: • 1 iH-Fvi l - ri. 

197 D A 9 80 


J=PA_^. 

#♦80 _ 

-----._ : .‘ ■ '■ * i'i - •••! —> 

, • • +.i ! f.'i. ■ 



197F BD 38 03 
1982 AS 10 

I984A9 03_ 

1986 9D ^S'W’ 
1989 A9 04 
1988 ?D 4A 03 
190E BE AB 14 
1991 EO 10 




8TA 
0P8RC1 LDX 
__LDA 

Fbta3T 

LDA ;• ;! 


STX 

CPX 


ICAX2+410 
#♦10 
JSQPEN 

iccohT? 

#4 

jcaxujl 

C8RC 

#♦10 


OH* R - .* * .V • ‘ *.’i » • ;..'s ’ * ■; r « • • ,:<i: *'r Y ’>*?;' * •••• 7. 

; , : 1 CB»Ek II*. : \ V^/V; WiV* '' 



1993 20 C2 23 T ' 


J9R 

CIOCL 


1998 AE AO 14 

FDE8 

LDX 

8AVX 


1998 80 29 13 


JLDA 

_PARiJI 


I99E C9 45 


CHP 

# # E 


I9A0 DO 13 


DNF 

OP DEB 


}9A2 A’ 00 

_PDE8L 

.IDA_ 

_.#0 __ 


19A4 BD AC 14 ; ’ f 


BTA 

CDE8 


19A7 CE BA 14 


DEC 

RDH 


}9AA 4C DA 19 


_ 

_P0CPY-_ 


I9AD A9 ID 

ODHS 

LDA 

#OEL 


. 19AF A2 19 


LDX 

#OEH 


1981 20 61 23_ 


_ %I8R. . .. 

_D8PLIN 


1984 4C 91 16 


JHP 

HENU8L 


19B7 EO 41 

OP DEO 

CPX 

# # A 


19B9 DO 08 . 


PNE 

0PDE8I 


19DD C9 44 


CMI J 

#'D 


19BD DO EE 


DNI* 

ODHS 


.. • >';v,; i '■: : • •: 11 =' ;>. j./ ; l : \ [ V'J-• .: 7 J. 


SPECIAL. CASE. -JJONT. OPEN. .USE. .EXIST INflJDCB. 
SET FLAB TO RE8H0U MENU 


.;7 - ;- '■■■ " . .■, \iy ,‘vr j v ; 


APPEND TO DISK PILE 


. ; .,..1 ... : '\i 


Ziri*MA 








COLLEEN DISK UTILITIES 



DO 02 
A9 OS 

A2 20 _ 

9D 4A 03 
A9 03 
9D 42 03 
BE AC 14 
20 C2 23 

A9 00_ 

9D 4B 03 

A 9 07 _ 

AE AB 14 
AC AC 14 
9D 42 03_ 
A9 OB 
99 42 03 

A9 AI_ 

9D 44 03 
99 44 03 

A?„I3___ 

~9D 45 03 
99 45 03 
AE AB 14_ 
A9 00 
9D 48 03 

JW-ffiL_: 

9D 49 03 
20 56 E4 
BC A5_I4 
AE AC IT 
AC AB 14 
B9 48_03 
9D 48 03 
B9 49 03 
9P 49 03 

19 48 03 
FO 03 

20 Cg 21 
AD A5 14 
10 CE 

C? 88_ 

FO 03 
4C CA 23 

FO OC 
EO 30 
FO OS 

A9 OC 
90 42 03 
20 56 E4 
AE AC 14 

FO 08_ 

A9 OC 
9D 42 03 
20 56 E4 
4C 91 16 


BNE 

0PDE81 LDA 

BTA 

LDA 

_bta„ 

8TX 

%JSR 

__ _ LDA 

BTA 


0PDES3 

•8 

J»«Q__—• 

ICAX1*X OPEN TYPE OUT 
•OPEN 

iqcorif«J3Pm_ 

CDE8 

CIOCL 

#0 _ _;_ 

ICAX2. x 




t COPY FROH CBRC TO CDES 


PPC PV L DA 

0C1 ^“Tfax 

i.DY 

-..fllA, 

IDA 

BTA 

_LDA 

" " BTA 
BTA 

... ..— . U ML 

BTA 

B1A 

CLPQP LPX 
LDA 
• i BTA 


•QETCHR+TEXT 

CBRC 

CDES 

ICCOH.S _: 

' #PUTCHR+TEXT 
ICCOH# Y 
JLDBUFL_ 

ICBaLiX 

ICBAL# Y 
^fOSUF H _ 
ICBAH*X 
ICBAH#Y 

CBRC__ 

#♦66 

ICBLLiX i 






BTA ICBLH#X 

J3R CIO 

,B TV ..bbtaj_ 

LDX CDE8 

LDY CBRC 

.LPA_.JCBLLiY 
BTA ICBLL.X 

LDA ICBLH. Y 


READ FROH INPUT 


•£/ ■:* * • ’ ' *• • ^• ; ' * v... ; *t : \ ' t 


BEO CKR8 

__USR___C1QCL™ 

CURB LDA B8TAT 

PPL CLOOP 

_CMP_#$88 

BEO *+5 

JHP CIOER 

CU?C„.LP&_JIBfiC™ 

BEO DU4 

CPX #430 

_BEO_DU4._ 

lCLOSE SOURCE FILE 

LDA #CLOSE 

.. BTA. ICCOH* X 

jsr cio 

DU4 LDX CDES 

_BEO_DU3 _ 

LDA #CL08E 

BTA ICCOH. X 

.JSR CIO 

DU3 JMP MENU8L 


ICB LH* X ____ _ __ 

ICBLL7YIF SOURCE FILE LENOtR - 6 
CKR8 DpHT DO WRITE 

5 IQCLj _MBLTEf.. APQ81LIF.FRR0B„-1— 

B8TAT OET READ OPERATION STATUS BACK 
CLOOP IF OK* 00 READ BOHE MORE 
•♦88 _ EOF STATUS_ 



IF NOT* ABORT 

TFe:. DONT close" 
CXI K; 




IF DE8*E: 



zin-MA 












1 


Q 

, 

• * 


m 


t 

• V 

COLLEEN DI8K UTILITIES 





n 

o 


-n—— - 

1 

i . 

RENAME FILE ROUTINE 





* ■ , • 



O 

1A34 6C 1A 

JA36 20 04 22 

1A59 20 90 22 

RENF1L 

. Mono 

JSR 

JSR 

RNHO 

0ETIC1 

OETNAME 


• ’’l 

n 

~1asc ao 7v aa 

IA5F A9 30 

IA61 A3 10 


*ian 

li*a 

lpx_: 

STA 

J8H 

UMF 

PERX • 

•RENAME 

ft 10 ' _ . 


"l 

n 

1A63 90 42 03 

1A66 20 C2 23 

1A69 4C 91 16 


ICCOM,X 

C10CL 

MENU8L 


n 

n 

1A6C 93 49 4E 

1A6F 41 40 49 

1A73 SC 30 47 

RNMO 

. BYTE 

•RENAME. OIVE OLD NAME. NEIf".CR . 


*) 

o 

1A73 49 36 43 

1A70 20 4F 4C t< 

1A7B 44 20 4E > ' 

o 

n 

1A7E 41 40 43 > - 
1A81 BC 20 4E i 
1A04 45 57 9B 

4'4' 




) 

n 

1 

1 _ __ 

o 

o 


FORMAT DISK ROUTINE ‘ > •" ’., & '^,7;,,"v- V'^.. 

. £&.\.S ■ "< ^ ;Wsvf’v ■ : ■■*'' • •• y: ■ ■ ' .; • ■ ;: 

o 

o 

1A87 CO 1A 

1 

FtfTDSK 

WORD 

» 

WHO 


1 J 

a M 

O 

1 

1AB9 20 Ft 3i ' 

1ABC 20 93 39 
tABF IS • !«V.i 


J8R 1 
J8R 

CLC • 

OETLIN . , • v. 7; : " "-P-V 

oetdn ;••••:•• •;v- 

•?V77;-?v 

o 

o 

1A90 69 30 

1A92 80 EF 1A 

1A93 80 F2 IA 


ADC 

8TA 

8TA 

• # o 

D06K 

CD8K _. _ 


o i 

o 

1A9B 20 79 22 

1A9B A9 07 

1A90 A2 1A 


JSR 
t DA 

tox 

perx ' • ••: ’ :• ■ ■ 

•VFML OUEhY TO VERiFY DRIVE NUMBER 
•VFMH ' . . .L- i. 

". v * •• .’K’• ^ ^'V-Vv 

i'A 

o 

1A9F 20 61 23 

IAA2 20 33 22 

1AA3 C9 39 


jsr 

JSft 

cmf 

DSPLIN 

CHROET 

# *Y SEE IF OK 



o 

V-'-V IAA7 00 14 

1AA9 A9 Ft 

1AAD A2 10 


\Hk'tW' r 

LDA ij 
LOT 

FMX ■ :-• jj* ; •*:, /; 

•FDPL--' 1 --.-. 1 s.c j.;V - ^ 

•610 

•v • *«' iO'-y-H >> * V/ ;}> v^-: 

o 

o 

1AAD 90 44 03 

1AB0 A9 1A 

1AB2 90 43 03 


8TA 

IDA 

£1A 

ICBAL.X 
•FDPH 

1CBAH. X 


n 

o 

1AB9 A9 FE 

1AB7 90 43 03 

1ABA 20 C3 23 


LDA 

BTA 

_ 

JMI* 

. BYTE 

•FORMAT 

ICCOM, X 

CIOCL CALL CIO TO DO FORMAT ~ _ 

'• ■ ' ■ ■ j ■. j'• 1 «" j,/' I**' .• 

. • f i* 4 : V . • •..* :7/Ui 

•V V'"" - V V * TV>:.- ' - r ;lt$ 

o 

o 

1ABD 4C 91 16 

1AC0 37 48 49 

1AC3 43 48 20 

FMX 

WHO 

MENUSL EXIT. 

"UHICH DRIVE TO FORMAT?". CR 

< 

c ; 

• 

^ _ L ^ ^ 1 w ^^ FlW *4 F F# ™ U -!■ 

1AC6 44 32 49 

1AC9 36 43 20 

. _.. 1 ACC 34 4F 20 _ 




,. • ' . * V- 1 *; - • v ; • ; '. i ' 1 '.: :Vr^ 

• 


1ACF *6 4F 32 
1A02 40 41 34 









Q 


COLLELN DISK UTILITIES 


□ 


o 

1AD7 34 39 30~ 
1ADA 43 20 22 

IADD 59 22 20 

~Wh 

.BYTE 

~ •TYPE*. #i?2. «Y“. *22,^ TO FORMAT DISK " 


o 

1AE0 54 4F 
1AE3 46 4F 
IAEA 4D 41 

20 

32 

54 






o 

1AE9 20 44 49 
IAEC 33 4B 20 

IAPF 

PDBH 





o 

1AF0 90 

1AF1 44 
1AF2 


FW 

CDSK 

.BYTE 
. BYTE 

t^t+1 

CR 

"0" 



o 

iAF3 3A 9B 

001A 


'•W-MIBMi'/ 

. BYTE 
HILO ; 

• . *» 

*:VCR 

UHD 

HH6^394 I- 



o 

OOCO 

001A 


mAh. 

VFMH 

m 

MILO 

•B 

-236»UHDHHJHD 

VFH 

VFM/236 



o 

00D7 

001A 


VFHL 

.. FDPtt 

m ' 

HILO 

m 

-236*VFHHFVFH 

FDP 

FDF/aSA 

Y •/ ••• y :/ ' 


o 

OOF1 


FDPL ** 

l »«»«»»»»•#»• 

i 

-236»FDPH*-FDP 



n 



• 1 

START CART ROUTINE 


■ i.T.i ■ - — 


o 

O 

|o 

* 


i o 
o 
o 

! O 

o 

o 

o 

o 

o 


E45F 

00E4 

OOSF 

E462 


9YVBL 


HILO 


SYVB LH - 


’ SYVBLL 

"• " : JtiiUL 


8Y8VBV 
BYVBL 
JBYVBL/236. 


-236«8YVBLH+BYVBL •: ■ r r.- 

ILOWXTVBL :v ‘ ‘ ‘ V :fc _ L 


OOE4 

0062 

safb 

1AF7 
1AFA 
| AFC 
SAFE 
I BOO 
1B03_ 
1006 


20 IB 
AD FC 
FO OA 
A9 IE 
A2 IB 
20 61 
4C 91 
20 BC 


BF 


XTVBLH 

XTVBLL 

8TCAR 


^WOREL 


JTVlk 

XTVBL/236 
-236*XTVBLH+XTVBL 
BCMO 


'My 


v /\ 'tv.*, ■ 

:V^- > L.v ^ ->-~- 


BEE IF CART 
00 IF THERE IB 


BAY NO CART 


23 

16 


21 


IBCAR 


JPP^ AYJB6. 
I BOB A2 E4 
IBOD AO BF 
IDOF 20 BC 
IB12 A9 07 
IBM A2 E4 
JB16..AQ Jb2 
1018 20 BC 
1B1B 6C FA 
_|P1E 4E 4F 
1021 43 41 
1B24 34 B2 
102* 44 47 
1UPA 90 


E4 


LDA BBFFC 

BEG 18CAR 

LPA_iNCAU^ 

LDX ttNCAH 

JBR DBPLIN 

JM P HENU8L _ 

JSR INITIO 

RESET VERTICAL BLANK VECTORS BEFORE ENTERING CART 

JrPA_ BAl_5EX.VVBLKI__ 

B8YVBLH HI BYTE 
B8YVBLL 

8ETVBV__— 

#7 BET WBLKD 

#XTVBLH 

BXTVBU---—•- 


: %r> ■ 




i*. i : 


E4 

BF 

2Q_ 

B2 

49 

4B 


NCA- 


LDX 
LDY 

>m 

LDA 
LDX 
J.DY 
JSR BETVBV 

JMP (CART8T) 

BYTE— ."NO CARTRIDGE"# CR 


. ' V ; r l > (■« 




- L F T 


o 

O 

O 

o 

o 


-— r I " ' i : a 


O 


"- 7 ^. :v y* -?-'T: 

■ * • ? • Vi 


11*1 n 


nr ▲ 


OYH^tA 








Q 

COLLEEN DISK UTILITIES 



1 


□ 

o 

001E 

1B2B 

9B 

NCAL 

SCHO 

l 

, BY1E 

-296*NCAH+NCA~ . 

CR 

• 

’7 ‘ 

p 

I DSC 

1 BSE 

3E IB 

20 FI 21 

1 

BRUN 

.WORD 

JSR 

BRHG 

GETLIN _ _ 


p 

p 

1B31 

1B34 

1B37 

20 IST54 

20 79 22 

89 1A 


JSR 

JSR 

BTA 

GETNO 7 . '• ...... 

PERX ' 

RAMLO . : 

■'••• 7 -7;; 7 

P i 

o 

IB39 

1B3B 

1B3E 

86 IB 

6C 1A OO 

52 59 4E 

BRHG 

" "8TX 

JHP 
. BYTE 

RAMLO+l 

(RAMLO) 

"RUN FROH WHAT ADDRESS?-. CR _ _ T 

.■ • 1 1 - ----1 

o 

! <! 


4F 4D 20 
?7„48 4i 
94 20 41 

44 44 92 

45 93 93 
3F 9B 






1B93 4C 4F 47 
1B5B 49^ 43 _41 
IB9B 4C 20 44 
1B5E 49 96 49 
1B6I 43 49_2C_ 
IB64 20 90 48 
IB67 59 53 49 
JB6A_43 41 4C_ 
1B6D 20 t 44^9 
IB70 56 49 43 
IB73 43 3FJ?B_ 
lB76 99 IB 
IB78 20 Fi 21 
IB7B 20 9E 22 
1B7E AD AE 14 


DEDE .BYTE -LOGICAL DEVICE* PHYSICAL DEVICE?-. CR 






2 .V*"V. •>;.iViV.v v .v: 

4*2 V ' 


..■fi'. t, ~ ’ 


DEFDEV.UORD DEDE ‘ 

JSR OETLIN 

• _JS« __ OETFIL CET LOO I CAL DEVICE NAME__ 

: Ida ptr ~' 

CMP *3 SHOULD BE DEVICE NAME ONLV 

i B N E B B1_BAD SYNTAX_ ' . ' 

jsr oetfil erf physical device 







1BB1 

C9 03 

CMP 

#3 

1BS3 

DO 40 > p ; 7 

BNE 

B81 

1085 

20 9E 22 

JSR 

OETFIL 

1B8B 

20 79 22 

JSR 

PERX 

SB6B 

AD 29 13 

LDA 

’ PAR_ 

1 BSE 

SO Si IC Ppp 

JSR 

mats 

1B91 

10 OD y4ypp 

BPL 

DDI 



A9 00 
20 21 1C 

30 22 _. 

AD 29 13 
9D 1A 03 
A9 9B 
9D IB 03 
A9 25 
9D 1C Q3 
BE AD 14 

AD 29 13 
20 2E 1C 
10 40 


_^LPA PAR_GET. LOO MBt ___, 

JBR HATS SEARCH HAT I HANDLER ADDRESS TABLE# 

BPL DD1 IF FOUND 

__illIPNILElNO_IT_flO -.FJND-EhPTY- BLOT —._1 -1- ...... - 

LDA BO 

JSR HATS 

_JH11_8TF_TABLE JS_ FILLED__ _ 




LDA PAR 

SIA HATABB#X PUT NAME 

DDI . LDA BDRHL 

STA HATAB8+1.X 

LDA BDRHH 

. _.SI A HATAB8+2.X 

SIX BAVX 

I SET UP LDNT# POST ENTRIES 

LDA _ PAR GET DEVICE 
JSR FLD8 

DPI BUI 


PUT NAHE IN TABLE 


-1 






IF FOUND IT 


OWISIA 










, „ COLLEEN DISK UTILITIES 

i Q 


ip 

1BB9 A9 00 
IBB7 20 2E 
__ IBB A 10 33 

1BBC A9 C6 
IBBE A2 IB 

1C 


LDA 

J9R 

BPL 

FLOS 

su2 .•_:__ ___ 


c\ 

n 


iNO BOOH IN TABLE 

8TF LDA «TFL 

LDX «TFM . .... _ 



! 

1BC0 20 61 

1BC3 4C 91 
IBC6 94 41 

23 

16 

42 

D9X 

TF 

UBR 

JMP 

4.BY1E 

DBPLIN -. ">. .. 

HENUSL ■ ■ i. 

"TABLE FULL".CR _ ' .... •_ 

■ -r-' \ • -v 


|o 

1BC9 4C 49 
IBCC 46 99 
1BCF 4C 9B 

20 

4C 







001B 

00C6 


TFM 

TFL 

HlLo'V 

sV; m . 

TF ■ ■ ■ "■ ;- r 

TF/236 /r?•••'/ 

-296»TFHttF ; " v - : .kv - O; ■ :: ■ ■ ' 

• • . . J’ ' '< > •/ • ; i . . ‘ t : ; • 

rv 

o 

IBD1 

1BD1 

1BD1 A9 D7 


| B02 

1 BSI 

LDA 

BB8HL , _ .... ... .V .. ■ 



o 

1BD3 A2 IB 
1BD9 DO E9 
1BD7 43 41 4E 

TZPT” 

- LDX 

BNE 

byte'; 

■"IiBSHH •. - '• ' i'V 

. D8X » ■ ••• .■' -' v •: ; 

:*CANT DEFINE THIS DEVICE** CM .:k.i'."'. 


) 

1 ° 

IDDA 54 20 
IBDD 49 46 
1BE0 4E 49 

44 

49 

20 






C' 

1BE3 94 4B 49 
IDEA 93 20 44 
1BE9 49 96 49 

fv:;':: 


[ • ■ r-* ; r!r. :W*.^7-V-' 

; i/'' ^•: ..'i . .• v. f * f > J 

>s ."-vt 

o 

o 

IBEC 43 49 

001B 

9B 

B8HH 

HILO 

m 

BOH 

BSM/296 ... 


| ,. 'N l 

SI 

k 

00D7 

1BEF AD 29 13 
1BF2 9D 9D 29 

■ :*'B8HL 

• v 

' m 

LDA 

STA 

^SeIbsSSSSh •• 2 

•par - V-’.' 'v • ;V ^V. c -M 

•• j '' »ii-4* ■ ■ fi ' $ < ■■■■' 

o 

o 

1DF9 AD 2B 
1BF8 C9 9B 

13 

I BEE 
BUI 

NOW IF THIS 18 A DELETE 

LDA PAR♦2 

CMP BCR 



i 

'! O 

i 

IBFA DO OE 

IBFC A9 0g_ 


pi V*..... , BNE . CRD NO. 00 CREATE DEVICE : 

^SMSELEtfe OPERATION. ZERO LDNT AND HAT. ENTRIES 

LDA «o - A."; •''■ - .. -V. 


{■ ■> 

O 

1BFE 9D 9D 
1C01 AE AD 
IC04 9D 1A 

29 

14 

03 


8TA 

LDX 

STA 

LDNT. X 

BAVX 

HATAB91 X 


o 

i O 

j 

1C07 4C 91 

1C0A OA 

16 

jhp 

1 CREATE DEVICE 
CRD TXA 

MENUBL 

- HAT AND LDNT ARE SET UP. HAKE POST ENTRY 


o 

! o 

1C0B OA 
1C0C OA 



ASL 

A9L 

A 

A 


o 


1C0D OA 



ASL 



1 

n 

1C0E OA 
ICOF AA 
1C10 AO GO 



A8L 

1AX 

LDY 

A 

• - ' HO: «<• V-.: 'M 

o 

o 

1C 12 B9 2C 

1 CIS 9D A9 
1C18 E8 

13 

29 

CPGL 

LDA 

STA 

1NX 

PAR+3.Y 0E1 BYTE OF PHYSICAL DEV:FIL8PEC 

POST.X 8T0RE IN TABLE 


o 

• 

109 CS 

1C1A CO to 
1C1C DO F4 



INY 

CPY 

BNE 

#16 

CPBL . ....... 


• j 


1C1E 4C 91 

16 



HENUSL 




I IIA'in FINDS DEVICE NAMED IN A. RETURNS ITS INDEX IN X 














/"•s 


( ■ 

□ 

o 

o 


COLLEEN DISK UTILITIES 


icai A2 si 

HATS 

tox 

•MAXDEV 

1023 DO 1A 03 

MATBL 

CMP 

HATABB*X 

1026 FO 09 


PEO 

HATX 

1C2B CA - 


DEX 


1029 CA 


DEX 


1C2A CA 


„ DEX_ 



t ~\ 


o 

o 

n 

o 

O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

n 


[ 


1C2B 10 F6 

1020 60 

BPL HATBL 

IIATX RT8 • 

.HIM IR TMP SAME THING FOR LDNT 






- : 

J 

ICSE A2 04 

FLD8 

tox 

•4 








1030 DO 90 29 

FLL 

CMP 

LDNT. X 








1033 FO 03 


beg 

FLDX 








1C33 CA 


ftEX 




■ “ .. • 





IC36 10 F8 • 

/■•v.;. 

PPL 

FLL * . 

■; '■ ■ .. ^ 







1038 60 

Ftox 

RTS 










• 

i Uboot 

9 

- WRITE 

OUT NEW D08.8YB FILE 








TC39 88 IC 

WBOOT 

.WORD 

OWMO . 





t >m ■ 



1C3B 20 33 22 

■ •; .. s • 

JBR 

CHROET ••••• 





V. ; 



1C3E 09 99 


CMP 

i'Y 





•• ■. 



M %4 UL V f 6IT 

1040 DO 2A 


ONE 

WBX EXIT UNLESS V 








1042 A9 6F 


tOA 

8WBH0L 








1C44 A2 10 


tox 

GUBHOH 








1046 20 61 23^ 


JBR 

DBPLlN r - ^ 

» . 1 







1049 A9 03 

- * 1 ; , ; V. 

LDA /ii..- 

•OPEN :.r 




■' * . ■ * 




1C4B A2 10 


ldx \'.=- 

•BIO • -70 

: ; '• 




.: t.. __ 



• w if* *w 

~1C4D 90 42 03 


8TA 

ICCOM. X 








1090 A9 A7 


tOA 

•DSL 








1092 90 44 03 


8TA 

.ICiAL x Jt_ _,___ 







i. 11 " • rr;\ 


1099 

1C57 

1C9A 

icSc 

1C3F 

1062 


A9 1C 
9D 49 03 
A9 08 _ 
90 4A 03 
20 C2 23 
A2 10_ 


1064 

1066 

1069 

1C6C 

1C6F 

IC72 

1079 

tC7B 

JCVS 


IC7E 

teal 

JC84 

1CB7 


A9 00 
90 42 03 
20 02 23 ^ 
40 91 16 
97 92 49 
94 49 4E 
47 20 4E 
49 97 20 

MjSEJSL 

2E 93 99 
93 20 46 
49 4(L 49_ 
9B 


-jzrTZT~i 




LDA 

•DBH 

BTA 

ICBAH. X 

LDA 

fB .. .. 

8TA 

ICAX1.X 

JSR 

CIOCL 

LDX 

JlflO_ 

.u*m 

•CLOSE 






WBX 

WPMO 


8TA 

J9f? 

JMP 


10COM#X 
CIOCL 
MENU8L 






. BYTE “WRITING NEW DOS. SYS FILE'S CR 


• . ■{ if.yr 


i «... 


ooic..„. 

006F 

1088 94 99 90 
1080.49 20 22 
1C8E 99 22 20 
94 4F 20 
97 92 49 
109/ 54 49 20 

tr«?A 4F 4fl »7 


. WHOM 

WBMOL 

QVJMO 


HltO WBMO 

•» _ WBMO/296 . - 

* -296«UBMQH+WDM0 

.BYTE -TYPE -.422.-Y-.422* - TO WRITE NEW 008 FILE-. OR 


1091 

1094 


ZITl-UA 








( 






□ 

i 

COLLEEN DISK UTILITIES 




n 

: o 

jCAO 53 20 46 ~ 

1 ICA3 49 4C 45 

ICA6 9B 




‘I 

o 

i 

1CA7 44 3A 44 

1CAA 4F 53 2E 

ICAD 53 59 53 

D3 

.BYTE 

-D.DOB. 8YB"iCR 

; 

! 

o 

. lend 9B .. •~~ r p r 

001 c 

DOM 

Milo 

B* 

DO ! ■ 

■ 08/296 ' ! ... .. . .. .. .... ... ... 


i 

n 

' 

00A7 

DSL 

I 

I 

m 

-256ftD8HfrD8 

1 

"I 

o 

.. '■ 

1 

1 LDFIL 
1 

- LOAD FILE FUNCTION 


n 

icai F3 ic 

1CD3 A9 91 

ICBS 8D E0 02 

LDFIL 

. HOOD 

LDA 

OTA 

LFMO 

•HN8LL X 

RMNAD BFI_pUN APDRESS TP MENU JEI-PC1.... ... ...._ ______ 

O ; 

n 

1CB8 A9 16 

1CBA BD El 02 A 

1CBD 20 SI 22 


IDA 
STA ; 
UBR 

“’"•HNBUT SO IP MONK IN Fill ME 00 THERE . , v 

• RUNADft •" 

OETICi ‘ .•„ —w--——.-1 

) . 

jo 

ICC0 20 79 22 

1CC3 20 19 13 

1CC6 E0 00 


J8R 

J8R 

CPX 

PERX 

LQADV 

•0 fPQCFBp LOAD fiWBP JIEppqNOE__.... ^ - 

O j 

i 

j 


1CCB DO 03 , ; 4.V.!5 

icca &c eo oa 

1CCD EO 03 

Vvr'vs i-i. 

• t : V.'• ' . 

BNE - 
JMP 
CPX V; 

•+3 BR IF ERRORS ■ . V ... ' . ' /; , : t‘ . 

V IRUNAD) IF 0H» 00 TO RUN ADDRESS 'k $■■■<; • -f -;• ^ v - 

o : 

e 

1CCF FO 07 

1CD1 90 

1CD2 4C CA 23 


BEO 

1YA 

otv 

NLF IF BAD LOAD FILE 

OTHERWISE WE COT A CIO ERROR 

CJOER OP PAY WHAT JT IS ... - -—-- 

H 

n 

! 

1CD5 4C 91 16 

ICD8 A9 E3 

1CDA A2 1C 

LDFX 
tiF - i. 

JMF 

LDA 

LPX 

HEMU8L ' •' *• " 

•BLFL ■ ,;*■ -■ ■ •/ 

l :‘ BBLFM . ' • ' 

o 

o 

i 

1CDC 20 61 23 

1CDF 20 FO 23 

ICE2 4C 91 16 


U9R 

JOB 

J* 

DOPLIN BAD LOAD FILE MOO 

CL08X CLOSE THE FILE 

MENUBf. EXIT ., t ..- - 

! "l '' 

! o 

1 

1CE5 42 41 44 

1CE0 20 4C 4F 

1CEB 41 44 20 

BLF 

. BYTE 
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1CF1 45 9B 
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i 
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.WORD 
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ciocL 
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“WHAT FltE TO i,OCK?*#CR . t ... 



o 

1D20 54 20 46 

1D23 49 40 49 

1026 20 94 4F 
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o 
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1D2C 43 4B 3F 

1D2F 9B 
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o 

o 

1D30 45 ID 

t 

* ULFll - DO CIO UNLOCK 
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O 

JD32 20 84 53 

JD39 20 79 22 

1D38 A9 24 


USR 

ilSR 

Lda 
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■" ■■■ • V ' 

•UNLOCK ••• -1 ‘V • ..V: " ; 
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o 

1D3A A2 10 

1D30 9D 42 03 

1D3F 20 02 23 


fT>X 

8TA 

JSH 

•f 10 

ICCOH. X it 

CIOCL _ > 


r> 

o 

iD42 4C qi 16 

ID49 97 48 4t • •••: 
1048 94 20 46 

ULHO : 

JMP ‘ 
. BYTE 

menusL . 

“WHAT FILE td UNLOCK?"* CR 


) 

o 

JD4B 49 40 45 

1D4E 20 94 4F 

1D51 20 99 4E 

i'V 

o 

1D54 40 4F 43'^ 
1D57 4B 3F 9B 
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h! 

o 
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o 
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n 
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O 
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t05A 44 
11)50 20 
1060 53 
i063 
1066 
1069 
ii)6C 
1D6F 
1072 
1D75 
1077 
ID7A 
i 070 
1080 
1083 
1086 
1089 
1I)8C 

iwr 

1092 
109g 4* 
1098 41 


53 

52 
2C 

53 

44 

56 
3F 

54 

45 
59 
49 
4F 

54 

55 
20 
4F~ 
41 


52 

45 

9B 

59 


40 


47 52 
40 20 
52 J3L 


50 

49 

20 

DDMCT 

♦ BYTE 

"OUFDISK-SOURCE.&i§T DRIVES?*. CR 

55 

45 

45 




20 

49 

53 


■V • 


50 

22 

OK 

.BYTE 

"TYPE *. «®. "V". *aa. * IF OK TO USE PROORAH AREA*. CR 

20 

20 

20 


1 r 


20 

45 1' 

33_i___.____-- ■■ „.-—-r, 


9B 


0010 


atut 


HILO 


OK 


o 

■N 


|!n 

0077 mo. p* -256*OKN*OK " 

■ ■" ; Y- ’■ t j \ ■ '‘ r V . ■V 1 '■ ; * f; % M : *J:. »*Ki: r; L : - ; ' 



o 

f 

« 
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i °i 

■ - C \i i r [ 1 " ■ 

' ‘‘1 V- : r • 

. DUPLICATE 0I8K ROVtiNE. 

T ; / • .* t •’’ * • • -A-/'<■ : • : i- «•->- .• •• f -'.-••• 7 . • , 

: : -A■ ■ ‘ ?■ \ tfi>' 



!, n 

1 »»»«»< 
1 

1 

»•»»»•»< 

RVTOC 

1 

READS VOLUME TABLE OF CONTENTS SECTOR 




1 r: 

'■■'I • 

ID7A A9 01 RVTOC 

ID9C BD OB 03 

IDA 

8TA 

•1 

DBHI 

RPAO Vtqc SECTOR 

V :. • ' ; ■ *_ r •< V•" 

r * ^ v 1 •••• •<• 

• 1 

;' ('■> 

1 

1D9F A9 68 

1DA1 80 OA 03 

10A4 A9 14 

IDA 

81A 
IDA 

#♦68 

OSLO 

#DB1H 




o 

i O 

1DA6 BD 03 03 

ida 9 A9 2i ; 

1DAB BD 04 03 

STA 

Ida 

81 a 

DBUFHI 

•DBSL 

DBUFLO POINT DCB AT PAR 

'■ • ■ V . • 


v % 

1 n 

• j ' 

IDAE ?0 C3 IF 

1DBI A9 00 

IDB3 BD AE 14 

*190 

LDA 

OTA 

R8EC1 

#0 

ptr 




o 

ii 

O 

1 DBA AD 33 13 

1DB9 BD AB 14 - 

1DDC A9 OB 

tOA 

OTA 

. L0A .. 
OTA 
LDA 

01A 
LDA 
OTA 

,018 

PAR+BA 
CBRC 
. #8 . 
IPTR 

#0 

_ „D8HI . 

#1 

08LO 

BYTE OF ALLOC MAP 



o 

o 

_ — . ■ _.D f VW . — - 

1DBE 80 AF 14 

10C1 A9 00 

10C3 80 OB 03 

COUNT BITS IN BYTE 

POINT T SECTOR ONE * 



o 

• 

A 

1DC& A9 01. 

1 DCS BD OA 03 

JDCB 60 



• 
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COLI.EEN DISK UTILITIES 


o 


=• o 

o 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

i* 


[ 


itocfe 

1DDI 
1DD4 
1DD7 
If IDA 
JUDD 
1 DEO 
1DE3 
IDEA 

iota 

IDEA 
I DEC 

Idef" 

1DF2 

IDF? 

IdfS 

IDFA 


20 Fi 
20 93 
BD A3 
20 93 
BD AC 
20 79 


21 

29 

14 

29 

14 

22 


JSR 

J8R 

^01 A_ 


AD A3 
CD AC 
FO 49 
A2 IE 
A9 OE 
2 0 6 1 
20 33 
20 9A 
20 B7 


14 

14 


23_ 

22 

ID 

IF 


J9H 

BTA 

_JBR_ 

IDA 

CHP 

pEO 

ibiT 

LDA 

JBR 


OETLIN 
QETDN 
UNNO __ 
OETDN 
CDEB 
PERX_ 


sMtzmiwnm _ 


30 OC 
20 BB 


fgBfi- 


IF 


"USR ; ‘ 
JBR 
.JB0L 

BMI 

JBR 


UNNO 

CDEB IF BOTH UNITS THE BAHE 

_BDD.. SINGLE. DRIVE JDUP__ 

OIBDH 

•1BDL 

DBPL1 N PROMPT TO INSERT BOTH pISKB 


CHROET 
RVTOC 
_AAM 
CEND 
RBEC 


1DFD AD AC 

14 

LDA 

CDEB UNIT TO WRITE TO 


iEdd BD oi 

1EOS 20 DO 
1E0£ CO A4 

03 *V 

iF^.Vv 

IF V CiNP 

6ta 7 

JBB 
USR •’ 

DUN1T 
. DKWRT , 

• ABP 5 . _; 

*1 • ' ' . 



1BD 


BNE 
JMP 
. BYTE 






MENU6L DONE 
INSERT BOTH DISKS* 


TYPE RETURN*#CR 


‘ *;*• f V: ' 


94 • ' 4 v. : V^ 

4E -••• '‘ . •__v.. • : w;.^. 


' r m \ ' rarr 


HItO 


001E_ 

OOOE 


IBDH 


IBD 
JBD/29&. 




IBDL•» —296*JB0H+IBD 

i 1 BINOtE DRIVE DISK DUP 

'“V 


M 


1 FIND AVAIL MEMORY, FILL FROM SOURCE DISK# SWAP# EMPTY# SWAP# REPEA1. 


Jl E2D_AD E7 
1E30 ib 14 
1E33 AD EB 
1E36 BD B? 
IE 39 AD E9 
1E3C 3B 
J|3D_J5LBft 
1E3F BD B2 
1E42 AD E6 
JM3 Ml. LQQ. 
IE47 8D B3 

IMA AP m 
IE4D CD B9 
1E90 30 OA 
JE92 DO 12 
IE54 AD B2 
IE57 CD B4 


02 

W 

02 

14 . 


1 

8DD 




02 


TT 

02 

TT 

14 

14 


’ r &rrrr 


tpA_ 

STA 

LDA 

jam. 

IDA 

SEC 


END OF DUP 


14 

14 


STA 
LDA 
_BPC_ 
81A 

1 SEE IF ROOM 

___ LDA... 

CMP 

BMI 

_BNE.. 

1 DA 
CMP 


MENLO 
BTVEC ~ 
MEMLO+1 
BTVECtl 
MEMTOP 


JltBCL_IND-120 jrPSEE _IF_BPO*L 

Tl FOR ANOTHER SECTOR 

MEMTOP+t v 

#0___ ___ -.- 

Tt+1 

FOR AT LEA61 ONE SECTOR! 

_Ti4-i. 

BTVEC 4*1 
NORM 
..... ENUF 
Tl 

BTVEC 











COLLEEN DISK UTILITIES 




l: 


1E9C A9 
IE5E A2 
1E60 20 
1E63 4C 
1E66 20 
1E69 A? 
1E6BBD 
JE 6 E 1 A9 
IE70 A2 
IE72 20 
IE79 20 
IE7B 20 
1E7B| AD 
IE7E| bd 
IEB 1 AD 
iEB4! BD 
1EB7 AD 
IE 8 A BD 

' IEBD AD 
IE90 BD 

_li?aLA5 

1E96 BD 
IE99 4C 


34 

IF 


UnRN 

ld?t 

•NR ML 


LDX 

•NRMH 

23 

UBR 

DSPLIN. 

16 

JMP 

HENU 8 L 

IF ENUF 

JBR 

CKMEM 


L DA 

•0 

14 

BTA 

OPT 


LDA 

• IBOL 


LDX 

• IBDH 

23 

J3R 

DSPLIN 

22 

JBR 

CHROET 

ID 

JBR 

RVTOC 


LDA 

r - ' dslo 

, 14 - 5 

PTA 

SMDP 

1 03 -• 

LDA 

DBHI_i 

14 

BTA 

BWDP+i 

14 

LDA 

PTR 

14 

BTA 

SWPPtg. 


FLda 

m iptr . . 

. I 4 

BTA 

i ; BWDP+3 

\ 14 P.y; 

LDA . C 8 BC_: 


n 


r\ 


BEE IF OH TO USE USER AREA 
“ BET "Op FOiT READ HEREOF IRBTP ABB 


CtlFV initial WRITE FOINTERB 
TO INITIAL READ POINTERS 






AA 14 
AB IE 


LRBi 


1E9CA9 00 
1E9E SO Bl 14 
_1 EA1 A9_44___ 


JMP LRBI SKIP FIRST READ PROMPT 

READ FROH SOURCE PISKJTIfe JiyF-PRrk-DR.EbB-B F . PATA.- „-— , v . , ... . 1 , , ' -.i - r; -j 77?. • I . 

***$%£^ St fuo 1,6 ARE 

v -•’ V -■■■/• , "'- v ' " •'- r ' ^ '' ■ *' ‘ *“'*1 


IEA3 A2 IF 
1EA3 20 bi 23 
IE AS 20 33.32 

1EAB 20 00 IF 


.i,M. 


XBLK 


LDX 

JBR 

_sSB_ 


•IBDH 
DBPL1N 

^dHROEI 


JEAE 20 
1EBI 30 
IEB 3 2 C 
1EB6 30 
IEBB 20 
ItBB 4C 
JEBE 20 
1EC1 AD 
IEC4__1B 
~1EC9 69 
1EC7 BD 
^iiCA^AD. 
IECD 69 
IECF BD 
1ED2 2Q 
” 1ED9 FO 
JED7 AD 
. IEPA C.P 
1 EDD 30 
IEOF DO 
l|=Ei AD 
IEE4 CD 
IEE7 10 


87 IF 
IF 

Bl 14 


06 
C9 

cue 

DO IF 
04 03 


_ V WT4 - w x ——— 

luisr. iBWAP POINTERS TO WHERE ME ARE 
: f'5v*;4iftLRBlVJSR V DOHWDP SWAP SECTOR wu pun 

-1 on jon AAM ADVANCE ALLOCATION MAP 

BMI A8PT IF FREE. ADV SECTOR POINTER AND TRY AOIN 

bit OPT S EE WHAT HPBE 

7MZ BMI •£$•*. DOM. 


■ ■_ ‘ - I 

AMD BITMAP »* 6 iiMTEIIi'X‘^%‘^-f 

: FE8-AREA—J——■—■—-—*————^— ' vr-w-*,- . ; ■ v ■■ ■ - ■"— ' 




DOW 

10D 


BO 

04 03 

03JJ3L 

00 

09 03 
A4 _ IF.. 
21 

B3 14 

Q3JKL. 

OA 

CD 

B2 14 
04 03 
C9 




JBR 
.OMP- 
JBR 
IDA 
CLC_ 
ADC 
Bl A 
J,PA- 
ADC 
BTA 
JPR_ 
DEO 
IDA 
...CMP- 
BMI 
BNE 
IDA 
CMP 
BPL 


R8ECI 
J(OD. 

DKWRT 

DBUFLO 



DO WRITE 
ADVANCE BUFFER POINTER 


•♦BO 

DBUFLO 

_DBUFHL 

#0 


— r ^ r ,,; i > , , ,^ 7 ,> /-h >,*■ if ' 

v -7-f' ° 


DBUFHI 

ASP _ DO ADVANCE SECTOR POINTER- 

BTDDl ALL SECTORS DONE. SWAP TO BEST DISK 

Tl+I SEE IF ROOM FDR ANOTHER 

DBUFHI ________ __ 

_ 8TDD ' IF NO ROOM. CO BWAP 
LR8 ROOH SO CONTINUE 

.Tt . *.- 

DBUFLO 

LRB ROOM. 


. ^ . . f - _ . A 1 ..-^1 1 "•[ .7 * 1 

, ’ v.i. .,.4. .-v A?? 

77- i... * I £ <* v * ■ v ''.V ") : 

_^_ ' : .. ?■-i . ■■■ .■« ' ' Ii " a ** 






o 

o 

o 

o 


IEE9 AD Bl 14 

■err 1A AF 


I SWAP DISKS AND CONTINUE 
81 III! IDA OPT 

iimi nnnn !!• MA3 WRITE. 


on til:All 


CVH-15U 
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COLLEEN DISK UTILITIES 






n 

O 

1M0 89 92 43 

IF50 49 20 44 

1F53 49 93 49 





] 


o 

IF56 2C 94 99 

IF99 90 49 20 

IF9C 92 49 94 






r\ 


1F9F 99 92 4E 

1F62 99 

«ci.*i la ac 

tnn 

BYTE 

"INRFRT DESTINATION nifflt. TYPE RETURN*, CR 


D 

) 


IrOt] ^7 34 

~ ".1F66 45 92 94 

1FA9 20 44 49 

1FAC 93 94 49 






\ 

o 

- - j F ^p 4g 4| $ 4 

1F72 49 4F 4E 

1F7S 20 44 49 
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i o 

IF78 S3 4B 2C 

1F7B 84 39 30 «> 
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o 

O 

" - jj.g 1 g 4 gg v 

IFB4 82 4E 9B 

•V; 

Milo 

- NRM ' v 



;’ x . 

i 

o 

001F 

0034 

NRMH 

NR ML 

■» 

MILO 
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16D . .— , , - -. T , V „.. T 



") 

i o 

~ obi F~". • 

0044 ' ’vV$pi 

Pi 
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2 

Milo 

^iso/aai:'*&"■ 

^-2 Si* I BOH* I BD '' :'v- 

IDD . • •_■ '••• - _'■ 

, .. V* .'«r V •:«.:* V ; . . . . * . 
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C) 

o 

00IF 

0063 

1DDM 

I DDL 
i AAM - 

* IDD/296 

» -296«ID0B+IDD 

ADVANCE ALLOCATION MAP ONE BIT. 


rrrti 

M 

1 Cf 

1F87 0E AB 14 a' 

IFBA CE AF • 14 > ■-. 

'» RETURN MINUS 
AAM . ABL : 

iv■ , DEC W- 

'IF FREE. : : ; • •' • “• 

CBRC •: . NEXT BIT .OF ALLOC MAR .. 

U IRTR /. • v 

• -'-yr-SjjpW: 'a! : K‘ 

v , g t •; . . , 

1 * r -a'-V i- f Vail : : 4 * *. :-f; v - V «*: . .V *' r : 'Jiu-T- V v - ■ V 


o 

i o 

i Fab do it 

1F8F EE AE 14 


ONE 

INC 

CBIT IF DONE WITH THIS BYTE 

PTR OFT NEXT ONE 



o 


1F92 AE AE !4 


LDX 

PTR 


^ ij- HI 


! o 

i i 

1F93 BD 2B 14 ^ 

1F9B BD AB 14 . < 
IF99 A9 06 

i \ ' 

LDA 

8tA 

J.D/1 

DBl+OA* X 

CBRC -• •• :vl -’iV 

•b : : . v ‘ : • ■' .. :•" : 

c' ^ Vfc 

1 

o 

1 

o 

IF90 BD AF 14 

IFAO AD AB 14 

CBIT 

BTA 

LDA 

IPTR 

CBRC CHECK THE BIT 

- 


o 


IFA3 60 


RIB 



y ft mt im 


o 

, ; ' . ‘ 

IFA4 AD OA 03 

I ABP - ADVANCE SECTOR POINTER IN DCB. , •;, 

i RETURN EQ IF AT END. . JZ r -*yV’ - • ■'< ' 

Arp l DA DBLO BEE IF END • __ 

; 4 '■ V..g, ^ 

. 

U J : 

o 

' o 

- . irflj. JDH-TO-.V* , ... 

1FA7 C9 CF 

IFA9 DO 07 
icid An fin fifi 


CMP 

ONE 

IPA_ 

CMP 

9E0 

INC 

#207 

Nxa 

nem _ 



o 

o 

__l rmi n*/ vh w. _ 

r 1FAE C9 02 

IFBO FO OB 

1 tens ere ha Hi 

_NXB._ 

_ ABPX. 

1 

1 RBEC 

T RBFC ~ 

#2 . r 

A8PX ALL DONE 

(IBLO _ _ __ . .. . - 


'> • -i 

: M'i 

: J2 

o 

f) 

L ___ lrn« fcfc Ufl im - 

1FBS DO 03 

1FB7 EE OB 03 

< CDA JLtk 

ONI: 

INC 

«ia 

- READ 

* ABPX 

DBHX 



o 

• 

n :::: 

A SECTOR MHOBE NUMBER IS IN DCB 

k f ^ ;; ;. ■[ »1 . 

• . ' :• < * i. . *' 1 i : ^ 

# 

9 

' 

1FBB A9 A1 

If-BD BD 04 03 

Ida 

B1A 

ODBUFL 

DBUFLO 
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COLLEEN DISK UTILITIES 




irca 

1FC9 

IFCB 

IFCB 

IFCD 


BII OS» 03’ 
AD A3 14 
OD 01 03_ 
A9 92 
4C 02 IF 


RSECI 


PTA 

LDA 

BTA 


LDA 

JMP 


DBUFHI 

UNNO 

DUNIT_ 

#492 

CLDKH 


SET SECTOR 


I DKMRT - WRITE A SECTOR* NUMBER IN DCS 


[ 


[I 


IFDO 

1FD2 

1FD9 

IFD7 

iFDA 

IFDD 

IFEO 

IFE2 

IFE4 

IFE7 

1FE9 

1FEC 


A9 97 


SD 02 03 
A9 02 
8DA4 14^ 
20 93~E4 
AD 03 03 
C9 01 


I 


CLDKI4 


"clBT 


STA 

LDA 

J3TA 

JSR 

LDA 

CMP 


§♦97 _ 

DCOMND 

#2 

RCNT 


SET RETRY COUNT 


FO 08 
CE A4 14 


SEQ 

DEC 


DKHND 
D8TAT8. 

DRT8 

RCNT 


OK STATUS 


4C CA 23 

60 

ORTB 

JMP 

RTS 

cioeit clo error, do say which 

' 1 . ' - 

=■ <s 'r 


> : ; • •. 


1 

CKMEM 

- A8K IF OK 10 USE USER AREA 






IFED 68 
1FEE 
1FEF 
IFF2 


l 

DDXT 


PLA 


68 

4C 91 16 
A9 08 


IFF4 FO 12 
IFF6 A9 77 


CkHEli 


TOT 

JMP 

Jj^L 


P OP RETURN A DDR ESS 


BEQ 

LDA 


■ menubl■. / < .-;.w ■ ;• ;■" • 

WAR M8T ir MEMORY WAS INTACT 


Wf'y 


CPTRI 

tfOKL 


QUERY TO BOMB IT 



1FF8 A2 

ID 

IDX 

•OKH 



r: 

1FFA 20 
IFFD 20 
' 2000 C9 

ai aa 

33 

m 

ill 

••it.-.- 

D8PLIN 

-|iy • ;‘Y 
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ii 


il 

n> 

• > 
o 
o 
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z 


2002 DO E9 
2004 A9 00 
2006 B9 0S_ 
2008 60 J 


CPTRi 


BNE 

LDA 

Mm. 
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DDXT 

§0 
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c 

o 

Q 

o 

o 




2009 

200c 

200F 
2012 
2015 
2018 
20 IB 
201E 
201F 
2021 
2024 
2027 
202A 
202C 
202E 
2031 
2033 
„2036 

2039 
2030 
203D 

2040 
2043 
2046 

2049 
204C 
204F 
2052 
2055 
205B 
205A 

2050 
2060 
2062 
2064 
2066 
2068 
206B 
2060 
206F 
2072 
2074 
2076 
2079 
P07C 
207F 
20B1 
2083 
2086 
2089 


4E 41 40 

45 20 4F 

46 20 46 
49 4C 45 
20 54 4F 
20 40 4F 
56 43 3F 
9B 

09.20 


DUPFIL - COPY F11E FROM ONE DISK TO ANOTHER 


OPFH 


. BYTE "NANE OF FILE TO HOVE? N iCR 


'1 


20 84 22 
20 79 22 
?0 ffc 


PUFF1L .WORD 


A2 10 
A9 03 
90 4 2 03L 
A9 04 
90 4A 03 

IBJcZJBL 


JSR 

JSR 

_JBR 

LDX 

LOA 

JB1A. 

LOA 

STA 


J*£H__ 

0ETIC1SET A DEV:FILBPEC 
PERX CHECK FOR ERRORS 

.«KnPt___ 


AO E3 02 LOA 

38 SEC 

ED E7 0 2 S BC 

90 4a 03 sta~T 

AD E6 02 (.DA 

eo Ed 02 ;; Q pc 

90 49 03 OTA 

AD E7 02 LOA 

90 44 0 3_8 1A 


#510 

•OPEN 
ICCOHf *. 

•4 

1CAX1. X 

j:ieek- 




.tr;j 


hemtop set buffer lenoth 

TO ALL AVAILABLE MEMORY 

J4EML0_ 

icbLl. X 
MEMTOP+1 
JKIILUti 
ICBLHi X 
MEMLO 






n 


r\ 


n 


AD E8 02 
90 43 03 v >i%: 
A? 06 
90 42 03 
20 36 E4 

CO 88_ 

FO IB 
CO 01 
F£ P3_ 


LOA &'* 

•STA&fe 

LPA . 

STA 

JSR 

-CPY_ 

BEQ 

CPY 


STA ICBAH. X ^ ^ 

-LOA BOETCHR ! 1 1 . _■ .' ' J,.. I- + J11 


s l 

C\ 


4C C9 23 JMP 

A9 34 1 OA 

A2 IF _i OX 

20 61 23 ••-:7 T7\OT“. • JbR~ 

A9 OC pFCX LOA 

A2 10 IM_, 

90 42 03 
20 36 E4 

4C 91 16__ 

A9 OC ~ 0K8 

A2 10 


IQETCHR 
ICCOM.X 
CIO 
•*B8_ 
OKS 
• 1 
*±3 


IF EOF. ME READ liHaLE FiLE SO OK 


4 • . ' X't-* ''*i ■' •«> ">V : 


90 42 03_ 
BO 48 03 
80 B2 14 


OTA 
JSR 
. JMP - 
LOA 
LDX 
STA 
LOA 
STA 


C10ERI 
•NRML 
•NRMH 
DBPLIN 
•CLOSE 
_itJO . 
ICCOM. X 
CIO 

MENUSL _ 
•CLOSE 
•*10 
ICCOM. X 
ICBLL.X 
T1 


NOT OK OR EOF 80 01VE ERROR MEBBAOE 
OK. SAY NO ROOM 


* 


-7- r ; VI»y ?-r."rjr: ■ r> ;rr , .r" r-’ ;:."r 1 

-'vA^' -;V. 

•.. • .• »-. v. *, *' - ?. 

_ „ __j _r_'_•: ■ •- 4 -__ 1 : _ 


W!; V- ‘kf 


.* ^ 

o 

o 

o 

o 

o 



_ I.UOU nu -IT VJ_ 

20BF 80 B3 14 

2092 20 36 E4 

2093 A2 IF 


__ 

81A 
JSR 
LOX 

„ 1UHLI1. A ... .. 

Tl+i 

CIO 

• IDDH . 






' .v^V>’ 

• 

I*. 


2097 A9 63 

2099 20 61 23 


l OA 
JSR 

• IDOL 

DBPLIN HAY TO SWAP DISKS 







1 

. i 




COLLEEN DISK UTILITIES 


209F AS? 
20A1 A9 
20A3 9D 
20A6A9 
20A8 90 
20A| A? 
20AD 90 
20B0 A9 
20B2 90 
2005 20 
2008 AD 
2000 90 
20BE AD 
20Ci 90 
20C4 AD 
20C7 90 
2OCA AD 
20CD 90 
20D0 A9 
2002 90 
2005 20 
2008 4C 


10 

29 

44 03 
13 

45 03 
03_ 
42 03" 
08 

4A 03 
C2 23 
E7 02 

44 03 
E8 02 

45 03 
B2 

48 03 
B3 14 

49 03 
OA " 
42 03 
C3-23- 
72 20 


LOX 

LDA 

8TA_^ 

LOA 

8TA 

IDA 

&TA 

LOA 

BTA_ 

JSR 

LOA 

^81A^_ 

LOA 

BTA 

_LDA_ 

BTA 

LOA 

BTA_ 

"IDA 

bta 


9410 

«PARL 

ICOALf X JPOINT__TO FILENANEAOAIN 
#P ARM 
ICBAH, X 

JOPEN_ 

ICCOM,X 
#8 

ICAX1, X __ „ . 

CIOCL OPEN FOR OUTPUT 
MENLO 

ICBAL.X__ __ 

MEMLOii BET UP ADR AMI LENOTM 
ICBAH,X 


ICBLLfX 
Tl+I 

ICBLHf JC___ 

"•PUTCHR 
ICCOM* X 

jiock _ 

DFCX CLOSE AND EXIT 


8AVE FILE ROUTINE 



"L 


200B AO 21 
2000 20 84 22 
20E0 AD B1 14 
20E3 48 
20E4 AE AE 14 
20E7 A9 9B 
20E9 90 28 13 
20EC 20 BA_24 
POEF 80 OB 14" 
20F2 BE BC 14 
?QF5 ?0_BA 
20F8 80 BO 14 
20FB BE BE 14 
20FE 2C A2 14 
2i6T 10 03 
2103 4C 91 16 

2106 At 00_ 

2108 80 B1 14 
210B 68 
2I0C 

21OE DO 03 
2110 CE B1 14 

2113” A2 10 
2115 A9 03 
2117 90 42 03 
211A 2C B1 14 
21ip 30 04 

A9 08_ 

r i DO 02 
2.123 A9 09 


jaflLAMmtsiLL 


BAVFIL . WORD 8FM0 

... .. . Jg* . .,9ETIC j . ..—_- 

1 ?■> OPT • • ; ” ■ = ■: .v 

PIIA . 

l ux ptr ^pyiLiflL^QH 

LOA BCR 

BTA PAR-1, X 

_ J 9R OETNO_«T JARAMEIEg___ 

BTA * . LOST V' \= .v 

i*?* x BTX U L08T41 ■* 

1 ^12^ . ;: . J ■— 

BTA LOND 

BTX LDND+t 

. _. . . . -811_FIB__ 

BPL ' : #+5 ■ . . . 

JMP : MENU8L *: IF ERRORS 

,. ......... •. .LOA.; _ BO_ 1 .:_:_.___ 

BTA OPT 

PLA OPTION CHAR FROM FILENAME 

1 _CMP_«'A_IF^APPENO_ 

■ ! ONE *♦» 

1 DEC OPT BET 0T-4FF 

^J1?EN-3IIE PJLE__:__ 

r LOX #410 

LOA 40PEN 

_ OTA..ICCOM, X ............ : .... 

BIT OPT IF APPEND 

PMI *+6 

__LOA_«8 .......A....,. 

ONI* *+4 

I OA #9 

















□ 

o 


COLLEEN DISK UTILITIES 


c 


o 


o 


o 


n 


o 


o 


n 


n 


o 


O 


o 


n 


o 


o 


n 


: 


SIM SO CS S3 


212B A2 JO__ 

2lSD A9 OA 
212F 9D 42 03 


■"’ v “ r .r. JSR CIOCL 

i WRITE RAVE FILE HEADER 

„_tfiX_#410___ 

IDA tPUTCHR 

STA ICCOM.X 


2133 30 i7 

BMl 

WDR 

2137 A9 BF 

LDA 

•0AVHL 

2139 9D 44 03 

BTA 

ICBALiX 

213C A9 14 

IDA 

•0AVHH 


_-_ 

PONT WRITE ANOTHER HEADER 


S13E 9D 49 03 
2141 A9 02 _ 

Si 43 ~9D~ 40 63 
2146 A9 00 
2140 VP 4 9 03 
2146 20 C2 23 


BTA 

IDA 


ICBAH*X 

•2 


BTA 

LDA 

BTA 


ICBLL71T 

•0 

JCBUhJL 


214E A2 
2190 A9 
2192 9D 
2159 49. 
2197 9D 
219A A9 
219C 9D. 
219F A9 
2161 VD 
216iJ20 
2167 A2 
2169 30 


10 

04 7 

40 03 

00 __ 

49 03 
BB 

44 03. 


JSR CIOCL 

I WRITE DATA RECORD 
WDR IP X_#410 


LDA * 
BTA 


14 
49 03 

£3. 

10 


BTA 

LDA 

.81 A. 


•4 

ICBLLf X 

JKL 


LDA 
> STA 
jliL 
LDX 
BBC 


1CBLH*X | 

•DTHL DATA RECORD HEADER 

J£»ALiJ.... 

iDTHH 
ICBAH#X 

JUKI 

•410 


; I 


21 AD ED BB 14 *>', 

2170 9D 48 03 'S 1 #?-' 1 "" 
2173 AD BE $4 

? SBC 

H'Sta 

iP4 

LD8T \L;yC': -i ■ V; 

ICBLLf K *-V7 - 

i-DNDtL •„ 

2176 ED BC 14 

BBC 

LDBT+1 

2179 9D 49 03 

BTA 

ICBLHfX 

217C FE 48 03 

INC 

ICBLLf X , 

217F do 03 “ 

'••SNE/^r 

*+s .r i'v 1 ;"? • VK 'i.;V 


2101 FE 
2104 Ag 
2107 9D 
2ISA AD 
210D 9D 
2190 20 
2193 A2 

-21KLA9. 


49 03 

IP It 

44 03 
BC 14 
49 03 
C2 23 
10 
QC_ 



LPBT_ 

ICBALi X 
LD0T+1 

ICBAHeJC____ 

CIOCL WRITE THE DATA 
•410 
.•CLOSE. 


2197 9D 42 03 
219A 20 C2 23 
2190 4C.91 16 
21A0 93 41 96 


O 

21 A3 

49 

2D 

2D 


__21A6 

47 

49 

96_ 

o 

21A9 

49 

20 

46 

21 AC 

4? 

4C 

49 


21AF 

2C 

20 

93 


21B2 

94 

41 

92 

• 

21R9 

54 

2C 

20 



49 

4E 

44 


0 FMO 


BTA ICCOHi X 

J3R CIOCL 

xWf* _HENU8L_DONE.__ _ ,- 

. BYTE **0AVE“O1VE FILE# 8TART# END*#CR 

















> 


COLLEEN DISK UTILITIEB 


o 

221 C A9 90 

221E BD 48 08 
2221 A? 00 

LDA 

BTA 

LDA 

BOO 

ICBLL 

BO 

O 

2223 BD 49 03 
2226 A2 00 

2228 20 96 E4 

BTA 

LDX 

JUR 

ICBLH 

«0 

CIO 


222B CO 00 

. ■:! ■* CPV ' 

1$80 

o 

222D 00 03 

BNE 

*+9 


222F CE A2 14 

PEC - _ 

PjER 


2232 60 

RIB 




_B6A8JI€OBB..EB{W.i5f?ilN-SMJ0R- r _ 

CHECK FOR BREAK ABORT OTATtIO 



» CHROET - OET I CHAR FROM EDITOR IN A. 


BTA 

PER 


JBR 

CIOQET OET A LINE FROM E: 


LDA 

ICBLL ?AyE CHAR COUNT , r 


6 ta J 

^TrCNT ' ;• ■ .• E *. -E v v-= ! E' 


JSR v 

E BCROL v, .V.' E '■■■;/ 

■ "i ; " '> V-' 


2233 A9 JX)_ 

2233 BD A2 14 
2230 20 OD 22 
223B AD 40 0 3 
223E BD A4 14 
2241 20 BE 23 
2241 AD A2 .11 
2247 10 06 
2249 20 FO 23 
224C 4C 91 16 


2241 AD A2 14 ■ ■ l ■' '■ - IDA PER______:--- 

2247 10 06 DPI. CHR02 IF BREAK. CLOSE AND EXIT 

2249 20 FO 23 J8R CLOSX 

224C 4C 91 16_ JMP MENUBL __ 

224F AD A4 14 ^fef.CHR02 LDA WV' RCNT EXPECT. I OR 2 CHARACTERS 

2252 C9 03 : ” i<- v " ^ CMP B3 ' . /V_ • ' " ;v ' V ; . - . 

2234 30 OA —BMI : C HR0 3 * IF OK . .. , I , 1 ,,-:. 

2256 A9 64 LDA BOLL 

2250 A2 22 LDX BOLH 

223A 20 61 23 _Jg R -..... , 8 .,-- — 

225D 4C 30 28' ' v " 4 ""; . “ ' : JMP ..' CHROi . ‘ tRV AOIN ' '-'t'- : :\' 

2260 AD 31 13 CHR03 ,i; Lt»A LINE .OEf IRT .CHAR 




zmmam 

■ r - i' :«-*i; c. ; "• 

* * •« ^ • > *:>*•* _i - 




- e: 


2264 50 4C 43 
2267 41 S3 43 
226A 20 34 39_ 
226D 30 « 20 
2270 31 20 40 
2273 43 3#_81 
2276 43 32 9B 


. BYTE “PLEASE TYPE t LETTER". CR 


—..— . ,m . . I. .. ' > i ' ■ i» i . . »• * —II..ill J II' — ; t ."■« '*« ! "• ’ T.1 ; j»- •' V'.«' 1 ' I 



o 

2279 PC A2 
P27C 30 Ot- 

14 

PERX 

BIT 

_ JOHJt 


227E 60 



RTB 


227F 68 
2280 60 _ 


PERX1 

PLA 
_P.i,A 


2201 4C 91 

16 


MV 


HILO OL 

l 1 -^—- 5 g !UbL .'-a- .,-A 

' . . . ' t; • • ' ' 

PERX - EXIT IF PARAHETEB.ERBPBB---—- 

sRX BIT PER 

_UNI. „_PERX I.....---— - 

RTS 

ERX1 PLA 

_PLA... -• 

,»l< MENUSL 

Ci-llCI • READ LINE. OET FHFNAME. POINT TO-IT IN 10CB1 


•' r ' ,K rrsft>.£r 0 ; 




Iff 


fi nr 





( 


Q 

p 

o 

o 

o 

o 

O 

o 


COLLEEN DISK UTILITIES 


n. 


2299 AC 
229B 
229B 


22A6 BD SO i4 


OB 

1 ~ 

1 

QETNAHE LDA 

•B 



BO 14 

AE 14 

AF 14 

B1A 

LDY 

LDX 

CTR 

PTR 

I PTR 

« 


F4 22 

♦IMP 

: < 

A 

CFTE 



: AE 14 
: AF 14 

iQET FILE8PEC FROM INPUT LINE 
QETFIL LDY PTR 

LDX 1PTR 

■ 


' OA A A# 

A IDA 

\;p #io. :;V' 

.^*7 . ' 1 * » ’ f i' *'7~ •* , 1 i , , *« . *’’• " * «. A . . " 1 *l* y % , *• ; : \ ; 

AA •Aa; ■ 1 


P2A9 BD 91 
22AC C9 2C 
22AE FO 3B 
22B0 C9 9B 
22B2 FO 34 


13 




Y^iSRI 

LDA LINE* X 

CNR t'. 

__JE£ ADDC __ 

7"^"'. . ttCR : ’ 

■ BEO ADDC 






, '-* r : .-•• 


o 

22B7 C9 2C 

CMP 

22B9 FO 22 

DEO 


22BB C9 9B 

CMP 

I O 

22 bd fo ie ; y 

BE0 

SSBF A7 3A r:"Av? 


1 

22CI DD 93 13 

7 iv^.v;- : : cmp 

' O 

P2C4 FO 2E 

BEO 

22C6 DD 92 13 

CMP 

I 

22C9 DO 12 

BNE 


OT 1 

ttCR 

QTi 


O 

P 


.LiNg+Sil 
CFTE 
LINE-*’I* X 
QTi 


,vi * ■■7';; A. ‘ ,7;: /*iy - a:-^V yV 

ESPEC ., .P -•=■■ •' ■' • V' a A* .o/p-J 

UE COMPLETE FtLEBPEC ALREADY * A. A-tAA' ; r A A: _•_ ..V •‘^A v AAi 




) 

i. 

A V 


22CE BD 9t 
22DI C?L4i 
22D3 10 IF 


Idaline.x ■...,»&%?/: - : -x- 6A- -.A‘«v%.AAA- ^ ■■ ■ A'-AA • 1 


BPL CFTE HAVE X:FILE. COMPLETE FILESPEC 
lIF FALL B THRU. IB UNIT:FILE* ADD D 


■ \ 


i r> 


n- 

o 

o 

o 


22D7 99 29 13 , ’ 
22DA CB 

22DB 10 17 


vun 

BTA 

JNY 

BPL 

_ M. *z _ 

PAR* V 


'■/Pi 

22DD CE BO 14 

QTI 

DEC 

CTR 



22E0 DD 91 13 
22E3 FO FO 


CM! 4 

BEO 

LINE* X 
QT2 

AN UNLIKELY CASE <:FILE> 

TREAT : FILE AB U:FILE 


22E9 CE BdTTT 

. v. 

DEC 

CTR 


^ ^7 ^ ^ y .• ' ' ", vj " \ / *.•« •: *: ' "? *’?'*. •* .fy , f . v/* 

'.: . * *\ ■■'*. ' ;• :y ' ^ * 

22EB A9 44 

ADDC 

LDA 

; #'0 

• . * . . 

.' ‘ • '; y; •. -T^. 

22EA 99 29 13 


BTA 

_PAR*T_ 


22ED CB 

22EE A9 3A 

22FP 99 29. 13. 


INY 

IDA 

_BTA_ 

_PARiJt 




••• > 


o 

(0 


0\ 


r: 


22F3 CB 
22F4 A9 OO 
22 F6 BP BI. 
22F9 BD 91 
22FC 99 29 
22FF E8 

2300 CB 

2301 C9 9B 
^03 FO 2C 

05 C9 2C 
2307 FO 2B 


I NY 
CFTE LDA 

M.....__ SI A. 

13 CFTE! LDA 

13 81A 

_ INK 

INY 

CNF 

_ PEG 

CNF 

UFO 


•0 

OPT ..... „ 

LINE* X 
PAR* Y 


; ; V*'■*; f;:••: t •••••';" a- a 


O 


ttCR 

EOC 

#'* 

EOC 


LOOK FOR TERMINATOR 

■ rv 


a, 

if! 


1 











COLLEEN DI8K UTILITIEB 


n 


2308 FO 28 



PEO 

POPT 


230D C9 2E 

■ .V . • : 

.' ' 

CMP 

#\ LOOK FOR 8TART OF .EXT 


Shop do os 



JNE 

CFTE2 ' .. . . 


2311 A9 04 



LDA 

*4 FOUND* 4 MORE CHARS MAX 


2313 8D 80 

14 


8TA 

CTR 


2316 CE BO 

14 

CFTE2 

DEC 

CTR 


[ 83l9~l0 DE 


1.. l 

BPL 

• CFTEl 

: • ’ ■ - Y % : . 

j 


IOETB HEBE IF 

TOO MANY CHARS IN FILENAME 


S 231B A9 48 



LDA 

BNTLL 


231D A2 23 



LDX 

4NTLH 


231F 20 61 

23 


JBR 

DBPLIN NAME TOO LONG 


2322 CE A2 

14 


DEC 

PER BET PARAMETER ERROR FLAO 


f 2325 BD 51 

i3 

~ifi~ 

LDA 

LINE* X 8H1P TO END 

. y i . . 

2328 E8 


’ ■ i . • 

1NX 


y. ;• .'• ••' •' • • •: • 

8329 C9 2C 


•. ; u 

CMP 

•v • - . ;*? ■■■■ ■ : ■ I y :_•/ ;* 

• , : j"* 

2328 FO 04 



BEO 

EOC 


232D C9 98 



CHP 

•CR V 


232F DO F4 



BNE 

8TE J 


r 2331 BE AF 14 

EOC 

8TX 

IPTR 

■ '* ‘ ' '!' ; 1' ' ' v ' 

2334 BC AE 

*« 

■>■■'••• v- 

BTY V 

? PTR . i:r : ,"y ' 

^ v .• .• ' •. > : 

l 2337 60 


_BT9 Ll 

‘ ; ■ • * ’ " ' > : ■ : ' . \ 

■.. '• ■ • ■* , . 

8338 BD SI 

13 

POPT 

LDA 

LINE. X 


233B BD Bt 

14 


81A 

OPT 


233E EB 



1 fix 



I 233F BD 51 


: r • ~ e ■ • 

LDA 

' • Line# x • lJ v,- r , ■ ~ ■: >: " 

"vv "vW ;^‘i •;.*■ 1 ^y V . v ■;■ 

2342 99 2B 

13 . .v 


8TA 

PAR-1. V CHAnOE STORED TERMINATOR TO . OR CR iHOPfi 

\ ' •' ; : Vv " 

1 -2345 E8. 

' * 


INX _ 

■ .• • • ‘ : • ’ . ; . ' * • . .,!.■■ • 

■* ' ' • :**' ■■■ 

2346 10 E9 



BFL 

EOC | 


2348 4E 41 

4D 

NIL 

. BYTE 

“NAME TOO LONO“» CR 

3 

234B ^3 20 34 



i • 

i 

f 234E 4F 4F 20 ^ • < v • 

23SI 4C 4F 4E 


T ,V 1 “ 

;" : -y Sy'y/£ ryy -yv ...*.•*• 

’”*'*.*1 '■? 

1 2334 47 9B 




,*':r ■■■? •...'■v /’ » y, i -i ? :i: ; '' /; y 1 !’.. 





HILO 

NTL 


0023 


N1LH 

m 

NTL/256 


0048 


NHL 

ms 

-236#NTLHH4TL __ 




) . I 



; •“VJ-: ! '' 


' \ ■ 

1 08PH80 - DISPLAY N BYTES 

• • 0 X .• \[t •;i V •. r ': ■*:•'i‘t■ * ? 


*. i. 

:<'• ii 

1 

BUFFER POINTER AND LENOTU ARE ALREADY IN lOCBO : • 

' • ’ ' '• ... t’;;y- /v x. ', \ ' , ‘ 

2356 A9 OA 


1 

nsPKso 

LDA 

•PUTCHR 


235B BD 42 03 


81A 

ICCOM 


235B A2 00 

' •• ' 



•0 

:c.. * y.y-.: 

235D 20 83 

23 • 


J8R 

CI01 

\ ^ ,y V *;/, J.- <.1 

_83ACL6Q._ 



.tua _ 




n 


n 


.-"'i 


o 


o 


DSPLIN - DISPLAY ONE LINE OF TEXT 


o 


2361 20 

68 23 

DSPLIN 

J8R 

D8PL1 


: y y 



2364 20 

8E 23 


vlSH 

BCROL 




V.y. ] y>-V-'v, 

2367 60 



RTB - 






2368 8D 

44 03_ 

1 

I 

D8PL1 

8TA .. 

ICBAL .. ADDRE08 OF LINE. TO IOCS 





I 236B 6E 

43 03 


8TX 

ICBAH 




. - '• ' r • T ■ !TTT i t.-’i 

236E A9 

09 


IDA 

•PUTRCD+TEXT 



yV. 

S' .»• .. 4/ 

L_^0 80 

42 03.. 

___ 

OTA.... 

.....ICCOM... . 

.... ’_ 

. _ __ , 




n 


o 


r»rr7«» nn m m 










{ 


0 ! 


COLLEEN DISK UTILITIES 


o 

237A 8D 4B 03 
P37D A2 00 
237F 20 S3 23 


BTA 

LDX 

JSR 

ICBLL 

•0 

CI01 

o 

2382 AO 

2383 20 36 E4 

1 

CIO! 

RTS 

JSR 

CIO CALL CIO AND 00 TO NENU8L 


2386 CO SO 
2308 DO 03 
238A 4C 91 16 


m 

#•80 IF BREAK REV ABORT 

*♦9 

MENUBL 

n 

238D 60 

1 

l 8CR0L 

RTS 

- no SCROLLINO OF AREA BELOW MENU 

n 

R3SE A9 00 
2390 AA 

i 

Scrol. 

LDA 

TAX r 


o 

2391 9D 49 03 
2394 A9 OA 
2396 9D 48 03 


BTA 

LDA 

BTA 

IC8LH* X 

mo v 

ICBLL* X \ 

n 

2399 A9 23 
239B 9D 49 03 
239E A9 A? 


TdaT 

BTA 

LDA 

. izAPM “ • ~. *' ?'■ : -- J - ; - — Y . Y; ■—^— --- 

ICBAH* X ... , ■ , • 1 

■ BZAPL • • . 

o 

23A09D4403 
23A3 20 96 23 
23A6 60 


BTA 

J8H 

RTS 

ICBAL*X 

D8PHS0 

n 

23A7 1C lC lC~ 
23AA 1C 1C 

23AC 9C ID ID 

; ZAP 

'■■ .. • ). *■ 

.BYTE 

.BYTE 

cu?. cup. clip. cup. clip • ” . * • <;• •• t ■.• ■ < 

DLL. CON. CDN. CDN. CON *.■ ‘ l. ' -\v ; * " 

n 

23AF ID ID 

0023 

.JMEH. 

II1LQ 

ms 

ZAP . j 

ZAP/296 i 

o 

00A7 

; IAPL ■■ 

■' 

( PincB 

m j -296»ZAPH+ZAP .'■** & :■ f. 

•r ' < ‘ ./ * ' : ■' t '• .* ’ , >» > •' ‘ * ' ’ ?.i ’ . '■ *? < t i’ Vf.'*• V- '**-*.: | ‘if'ifi >Vy f **i* 

- POiNt IOCS AT pArcptrj ' ‘ ' ' - r ; L ' v” • ;* < 

O 

2301 A9 29 
23B3 18 

i 

PIOCB 

LDA 

CLC 

•PARL 

o 

2384 AD *6 W 
23B7 9D 44 03 
23BA A9 13 


ADC 

BTA 

LDA 

ICBAL* X ' *=• -'-v V * •’ ^ ^ ? ''c« \ * 

HP ARM ' - 


o 

o 

Ci 

n 


[ 


23BC 69 00 
23BE 9D 49 03 
23CI 60 


ADC 

8 TA 

RTS 


ftO 
ICBAH. X 


> CIOCL 
J. 


- CALL CIO AND PROCESS ANY ERRORS 


23C2 

20 96 E4 

CIOCL 

JSR 

CIO 

CALL CIO 

S3C9 

98 


TYA 



23C6 

30 OX _ 


„ BHI _ 

,*ta... 


23CB 

60 


RTS 


OK* RETURN 

23C9 

98 

CIDER! 

TYA 


ERROR STATUS 

23CA 

38 _ 

CIOER . 

SEC . 



23CB 

E9 64 


SBC 

•ioo 

ERROR NUNS ALWAYS ARE IXX DEC 

23CD 

A2 2F 


1DX 

B'O-I 

CONVERT TENS 

.. 23CF 

ES _ 

..j:tn8 ... 

I NX 


,. . • 

23D0 

38 


SEC 



23D1 

E9 OA 


SBC 

• 10 


*s 

10 FA 

10 


BPL 

CIC 

CTN8 

TUF EASY (BLOW) J|R)( 

2JD6 

69 3A 


A!>C 

mo+'o 

CONVERT 


n f»r» 















r*s 


U 

o 

o 

o 

o 

n 

n 

O 

n 

o 

o 

o 

o 

o 

o 

o 

o 


COLl.FEN DISK UTILITIES 


23DB BE F5 23 

9TX 

ETN 

23DE A2 23 

LDX 

•CIEH 

23E0 A9 EB 

LDA 

•Cl EL 

23E2 20 61 23 CIEX 

JSR 

DBPLIN 

23E9 20 F8 23 

JSR 

CLOSX 

C3E8 4C 91 16 

JMP 

HENU8L 


CLOSE IOCBfl 10# 20 


P3EB 45 52 52 
23EE 4F 52 2D 
23F1 20 20„20 
23F4 31 
23F5 00 

23F6 00_ 

23F79B 


0023 

O0EB 


CIE- 


.BYTE “ERROR- 


E1N 

EUN 


.BYTE 


0 

0 


BYTE CR 
HILO CIE 

JL _ .CIE/ 28 *.... 

- —2S6*CIEH+CIE 


[ 


23FB A9 OC 


_C|gM 
Cl EL 
« 

l CL Q 3 X - CLOSE I0 CB8 10^20 

closx 


LDA 


•CLOSE 

JCCOHtfiO. 


23FD BD 62 03 
2400 A2 10 

2402 20 56 E4 



BTA 

LDX 

JSR 

ICC0N+«20 

••10 

CIO 


2405 A2 20 

2407 20 56 |E4 
240A 60 > 


i • 

~Tbx ~ 

»J8H 

••20 

CIO 



j:lo§e_iocibj 0 , 5 ft— LI 


IF 


8YBRE8 


[I 


’:' 1 ?•' i LOAD - THIS SUBROUTINE ‘ 

S J ... LOADS FROH THE FILE IHU8T BE LOAD FORHATl 

I ^ INTO MflORY^ MTURNB;. 

i X-0 LOAD OK 

i X-l OPEN ERRORS Y*CIO CODE 

3*2 RE AD ER RORS Y-C1P CODE 






24OB A2 10 
24QD A9 03 
_240F _9D 42 OSL 
2412 A9 04 
2414 9D 4A 03 

.B4I7.BILMJE4L 

241A 10 04 
241C A9 01 
24IE DO 4F_ 


X*3 BAD LOAD FlLF 

« ON ENTRY# IOCB 1 POINTS TO FlLENAHE. 

L 


LOAD 


LUX 

LDA 

JTA_ 

LDA 

8TA 


BPL 
IDA 
_PNF. 


••10 

•OPEN 

ICqPHtX__ 

•4 OPEN TYPE-INPUT 

ICAXltX 

CIO_1R* JKLUP.EN.mE- 

CONT IF OK 
OPEN ERRORS 


RDLF 

• 1 

JPLFX 


2420 

A2 

10 RDLF 

1DX 

••10 

2422 

A9 

At 

LDA 

•DBUFL 

..... 2424 

?P 

44 03__ . 

.... BTA 

... ICBAL# X . 

2427 

A9 

13 

LDA 

•DBUFH 

2429 

9D 

45 03 

B1A 

ICBAH# X 

2420 

A? 

02 

_LDA_ 

•2 . 

242E 

9D 

48 03 

97 A 

ICBLL# X 

2431 

A9 

00 

LDA 

•0 

.yp*433 

9D 

49 03 . 

01A 

. ICBLH#X 

r 36 

A9 

06 

1 DA 

•OETCHR 

«'43B 

9D 

42 03 

01A 

ICCOM,X 


CLOSE AND.EXIT _ 






COLLEEN DISK UTIL1TIE8 


243E 

2440 

2442 

2445 

2447 

2449 
244C 
244E 

2450 
2452 
2455 
2457 

‘245A 
24 5C 
245F 
2461 
2464 
2467 
2469 
246B 


13 


13 


30 45 
A9 84 
CD At 
DO 3A 
A9 09 
CD A2 
DO 33 
A2 10 
A9 A! 

9D 44 03~ 
A9 13 
9D 45 03 
A9 04 
9D 48 03 

A9 00__ 

9D 49 03 
20 56 E4 

10 20 _ 

CO 88 
DO IS 


BNI 

ERST ~ ] 

LDA 

•484 

CNP 

DBUF < 

BNE 

LNLF 

LDA 

•409 

CHP 

DBUF+1 

BNE 

LNLF 


IF ERR8 


RDDRC 


LUX 
- A 
81A 
LDA 
01A 
IDA 
OTA 

OTA 

J8R 

DPL 

CPY 


•410 
•DBUpL„ 
ICBAL.X 
•DBUFH 
ICBAH*X 
#4 

ICBLL*X 

»0 


246D 

246F 

2470 


A9 00 
48 

98__ 


2471 

2472 
2474 
2476 9D 42 03 
2479 20 56 E4 
247C 68 


48 

A2 10 
A9 OC 




BNE ' 

IfeOF 

LDA §0 
CLFX PHA 
1YA 

-i ni-TT" 


ICBLH. X 
CIO 
ST OK 
•488 
ER8T 


NO ERROR CHECK 80 CAN CATCH EOF 

IFJP.M_ 

8 EE IF EOF 

IF 80HE ERROR 8TATU8 


OK STATUS 


fHA 

LDX 

LDA 


8 TA 

JSR 

PLA 


#410 

4CLP8E 




ICCOHtX 
CIO 


«'v 

:■ ■; ■■ , . i mi ,.r-... ..._. .— 


247D A8 

247E 68 


TAY 

,■ pla 








]• '. ' ; ' ‘ \ ^ ‘ . * * * «. 4 

"v 

: *. *' ; ’> :i >*'; 

247F AA 

- *'V * ’«s ’ 









Li __ 



2480 

2481 
2483 
2485 
2487 
2489 
248B 
248E 
2491 


60 
A9 03 

DO EA_ 

A9 02 
DO E6 
A2 10 _ _ 
AD Ai 13 
9D 44 03 
AD A2 I 


LNLF 


2494 9D 45 O: 


RT8 
LDA 

_BNE 

"iRST Ida” 

BNE 

8T0K .LDX 
LDA 
BTA 

JtWL 




BTA 


#3 

_CLFX_ 

• 2 ' 

CLFX 
#410 
DBUF 
ICBAL*X 

j?iyp±jL 


HAD LOAD FILE 


READ ERRS 


r ■ ■ . tv /"Vv" 


HOVE PARAHS TO IOCR 


ICBAH.X 




2497 AD A3 13 - 

249A 38 

LDA 

SEC 

DBUF+2 ; 


•••>/ " ■ r . 

249B ED Al 13 

9BC 

DBUF 



249E 9D 48 03 

BTA 

ICBLL. X 



24A1 AD A4 13 

IDA 

DBUF+3 .... .. ......... .. . . 



24A4 ED A2 13 

BUC 

DBUF+1 



24A7 9D 49 03 

8TA 

ICBLH*X 



24AA FE 48 03 

INC 

. ICBLL. X_„ ... . . ......... ... _... _ 



24AD DO 03 

BNE 

*+5 



24AF FE 49 03 

INC 

ICBLH*X 



24B2 2Q 56 E4 _ 

_.JSR . 

CIO . READ DATA DIRECITLY TO HEHPRY 



24B5 30 CE 

BH1 

ER8T IF ERRS 


;T"' 

24B7 4C 4E 24 

JMP 

RDDRC OO READ NEXT DATA RFC. 


: : . .i 


. . ENDIF 

i 

^■V 


.- — 1 


i 

'*• *»*•»* #••* -r nfw MUMrnTn r» A riAMrrro mr*M 1 HirMHIlM 


i 


Zl+l-UA 






CtiLLEEN DISK UTILITIES 


I RETURN A*LO# X^III. PER BET MIN118 IF ERROR. 

I INC IPTR PAST PARAM. 


24BA A9 04 

24BC 8D BO 14 
24BF A9 00 

DEI NO 

LDA 

OTA 

LDA 

#4 

CTR 

. fP . 

MAX NO DIGITS 

24C1 OD B2 14 


BTA 

Ti 


P4C4 8D 83 14 


ST A 

TIM 

IMIT TEMP TO BUILD NUMBER IN 

24C7 AE AF 14 

ot« 

LDX 

IPTR 


24CA BD 51 13 


LDA 

LINE# X 

GET CHAR 

34 CD EE AF 14 


INC 

IPTR 


24D0 C9 98 


CMP 

SCR 

SEE If TRMINATpR .... _ 

24D2 FO 2B 


BED 

ONO 


24D4 C9 2C 


CMP 

•V S'# • 


24D6 FO 27 


BED 

_ GND 


24DO 20 3A 29 


JSR 

HEXCOM 

CONVERT ASCII TO NIBBLE 

24DB 30 29 


BMI 

ERRX 

IF ERROR 

24DD AO 03 


LPY 

S3_. 

.@tIF-TH#.Tl±t SY 4 „ ...___ 

24DF 10 

»irF 

, CLC 



24EO 2E B3 14 

■= .* ■ 

ROL 

TIM 

; . ..A ■ . ■ 

24E3 2£ B2 14 



tl 

! 

24E6 00 


DEY 



24E7 10 F6 


8PL 

BHT1 



_24E9 00 *3 J4__ 

P4EC SO S3 14 
24EF CE SO 14 
_ 21P2 J8 B3 

P4F4 A9 OC 
24F6 A2 29 

24F0 20 6|_23__ 

24FB CE A2 14 \; 
24FE 60 

P4FF AD S3 1 4 *• 

2502 AE B2 14 

2505 60 

2506 A91C _ 

2500 A2 25 ~ 

250A DO EC 

250C 94_4F 4F_ 

250F 20 4D 41 
2512 4E 99 20 

2515j§4 49 47 __ 

2510 49 94 93 
251B 9B 

0029 
OOOC 

251C 49 4E 96 _ 
251F 41 4C 49 
2522 44 20 48 

_2529 49 9S 41 __ 

2520 44 49 43 
252B 49 4D 41 

_252E 4C 20 90_ 

2531 41 52 41 
2534 4D 49 94 
45 92 9B 

00P5 


J?8A_mi_RUN .NEHLJNISSLIL_ 

OTA TIM 

* . V-'j:*'-. -i DEC .. V? CTR COUNT DISIT 

IDA STMDL 

LDX STMDH 


SBfm _ 


.DBPLITL 

PER 


QNP 


DEC 

.RTOfe;^,. . 

IDA n mi ^ 

1 DX T1 


ERRX_LDA 

LDX 
ONE 

JLNP_xlflL 


.if„lNVAt|OJHEX. PAIJAH, 
ttiMPH ; 

ERRX1 

J!TOQ MANY MUTISM __ 


__UILO_IMS__ 

1MDH * TMD/296 

TMDL » -296«THDH+Tttf) 

IMP_, PYTE_.* INVALID . HEXADECIMAL PARAMETER*# CR 


MIL fi I HP 

IfIPit * I HP/296 



























f 


COLLEEN DISK UTILITIES 


I OBION - 

l _RETURN 


SET A DEVICE NUMBER FROM LlNECIPTRl 

iT in a . _; .... 


D 


2C A2 14 
30 27 
AE AF~T4 
BD 31 13 
EB „ 
C9 44 
FO FB 
30 _ _ 

E9 30" 

FO IB 

30 16__ 

C9 03 

10 12 
40 

Bi) 9i 13 
EB 

C9 2C__ 

FO 04 
C9 9B 
DO F4 
BE AF~14 
60 

60 __ 

CE A2 14 
A9 SB 

A2 29_ 

20 61 S3 
60 

4* 3939 

44 20 44 

31 20 94 
48 92.33 
20 44 34 
9B 


QETDN BIT 

:_BM1 

r Tdx 

OETD LDA 

_ I NX 

CMP 

BEO 

.._BEC_ 

BBC 

BEO 

__ BMI 

CMP 
BPL 
_ PHA 
0D1 LDA" 

INK 

LI_JMP 

BEO 

CMP 

BNE 

ODX STX" 

PLA 

OP R PTB 

BBS DEC 

LDA 

__ IPX 

JBR 

RTB 


PER 

ODR_ 

IPTR 
LINE* X 


BEE IF PARAM ERROR ALREADY 
IF BO DONT BOTHER_ 



IF DN 

00 OET DIOIT 


CONVERT DIOIT 
CANT BE ZERO 
JF MPT fiIOIT_ 



TOO LAROE 


LINE* X 


A Ll _~ 

ODX IF TERMINATOR 

BCR 

GDI KE EP LOOK1NO_ 

iptr Advance pointer 


per 

BND8L 
JMDBH. 
DBPLIN 


NEED DEVICE 8PEC MBO 


3 4 3 Hd 9 B YTg W N EEQ P4!iCR V- 


NDR . .. 

ND8/296 

-296»ND8H+ND9 


i DRH - DEVICE REDIRECTION HANDLER 


WHENAOOICAL DEVICES ARE CREATED, _ 1HE HANDLER ADDRESS- 

POINTS HERE. THE DRH LOOKS UP THE PHYSICAL DEVICE SPEC 
AT OPEN TIME AND CALLS THE APPROPRIATE HANDLER. THE IOCB 
HANDLER ID IS THEN SET TO THAT HANDLER 80 CIO CALLS AFTER 
THE OPEN 00 DIRECTI.Y TO THAT HANDLER. 



DRH 

DRH/296 

-296«DRHH+DRH 


HANDLER VECTORS IONLY OPEN IS USED) 


,9B F7 29 


nn nn nn 


. WORD EOPEN-1 
RY1P 0.0.0.0.0 


I IINT 


zin-MA 



COLLEEN DISK UTILITIES 


□ 

P 

o 

r\ 

n 

r\ 

O 

p 

O 


c 


25A7 AO 

25A8 

0025 

OOAB 


25F8 AO 00 
25FA B1 24 
25FC 20 2E 
25FF 10 03 


««»+9 

RIB 


UNUSED 
IN1T ROUTINE 


• Ktt+flO 
HILO 


1C 




2601 

2603 

2604 

2605 

2607 

2608 
2609 
?60A 
260B 
260D 
260F 


AO AC 
60 _ 

8A ~ 

A6 2E 
OA __ 

OA 
OA 

OA_ 

69 AS 
85 24 
9D 44 03 


PD8T 

PDBTIL 
f»DBTL 
I 

LDY„ 

Ida 

JBR 

__BPL_ 

f INTERNAL ERROR 
1EKR iDY 
HERRX RT8 


TABLE OP PHYBICAL DEV:FIL8PECB 

POST 

PD8T/256 „ ______ 

-256iPD8TH+PDST 

40 ______ 

< ICBALZI* Y OET LOGICAL DEVICE NAME 

FLD8 SEARCH LOO DEV NAME TABLE 

FLD IF FOUND I T O K 


iplffW’imfe:* 

••AC NEW ERROR 


FLD 


TXA 

LDX 

_AOI^ 

ASL 

A8L. 

-A§k- 


ICIDNO 
A „ 
A 
A 

A__ 


CREATE POINTER TO PHYSICAL DEV8PEC 
OET IOCS • 


ADC iPDSTL 

9TA ICBALZ 

STA ICBAL* X FOR FM8 


r 

2612 A9 00 
2614 69 25 
2616 85 25 

. 1 *-. 

Ida 

ADC 

8TA 

•0 

•PD8TH . 

ICBAHZ _ : _ 


2618 90 45 

03 

STA 

1CBAH.X FOR FM8 


261B 20 9E 
261E BO E3 

E6 

JSR 

BCS 

DEVSRC 00 FIND PHV8 DEVICE HID/DNO 

HERRX IF ERRORS 


2620 A5 21 


LDA 

ICDNOZ 

n 

2622 9D 41 

03 

STA 

ICDNOiX FOR FM8 


2625 20 3D 
2628 BO D9 

E6__ 

USR 
BCS 

COMENT CET PIIY8 DEV. HPWJ OPEN ENTRY .. „ : 
HERRX 

n 

262A 20 89 

E6 

JSR 

OOHAND 00 DO REAL OPEN 


262D 60 


RT8 

THAT8 ALL 

i 

r 

• • p. }('• ■ 

'■ . END ■ 

•' ■ ' v ;;• '1; ;■ r V P. -‘ -*‘-5." ; ;; ' • 




CWJ-FEN DISK UTILITIES 


SYMBOL TABLE 


AAM 

1FB7 

AD DC 

22EB 

AF 

131D 

AFH 

0013 

AH. 

OO ID 

ASP 

1FA4 

_ABPI„ „ 

IHD2 

mm.— 

1FBA 

hus 

2580 

BLF 

1CE5 

BI-FM 

01C 

BLFL 

00E5 

KRKKEY 

0011 

BRNO 

1M3E 

BRUM 

1B2C 

H31 

1BD1 

l»D2 

1DD1 

B8M 

1BD7 

B8MH 

001B 

D8ML 

Q0D7 

CART9T 

BFFA 

CB1T 

IF AO 

CUES 

14AC 

CUN 

001D 

CH3K 

IAF2 

CEND 

It 06 

CFTE 

22F4 

CFTE1 

22F9 

CF1E2 

2316 

CHROi 

2238 

CIIR02 

224F 

CHR03 

2260 

CHROET 

2233 

C1E 

23EH 

CIEH 

0023 

CIEL 

OOEB 

cirx 

23E2 

CIO 

E456 

C101 

2383 

CXDCL 

23C2 

CIDER 

23CA 

C10ER1 

23C9 

C100ET 

22 OD 

CKMEH 

1FF2 

CKRB 

1A27 

GLDI 1FDA 

CLDKH 

IFD2 

Cl.F 

001E 

CLFX 

24&F 

CLOC 

IA33 

CLOOP 

19FA 

CLD81 

I8DB 

CLOSE 

OOOC 

CL08X 

23FB 

CL8CR 

0070 

COMENT E63D 

CPMQ 

190D 

CP8L 

1C12 

CPTRl 

2000 

CPYFIL 

1936 

OR 

009D 

CRD 

ICO A 

CRT 

00 IF 

CSRC 

14AB 

CBRCM 

0014 

C8RCL 

OOAB 

CTN8 

23CF 

CTR 

14B0 

CUP 

001C 

DBI 

1421 

DB1H 

0014 

DB1L 

0021 

DR3 

I39E 

DB3H 

0013 

DB3L 

009E . 

DBLH 

0001 

DULL 

0000 

DBUF ■ 

J3A? 

DBUFH 

Q013___ 

PPUFHL03Q3_ 

DDUFL 

00A1 

DBUFLO 

0304 

DOB 

0300 

DCOMND 

0302 

MHI 

ID AO 

DDMO 

ID5A 

DUSK 

1AEF 

DDXT 

1FED 

DEDE 

1855 

DEFDEV 

Wk 

_.delete_ 

0021 

.DELFIL_ 

I7BA_ 

DEI X 

18D5 

DEMO 

|BFC 

DEVSRC 

E69E 

DF1 

17E3 

DECK 

2072 

DIRL8T 

172D 

.. DKIIND 

E453 

DKWRT 

1FD0 

IHL_ 

009C 

BtMo. v. : iim 

_L_i>Laio_ 


PLPTI 

1781.. 

Httt-.ND 

1607 

DMENU 

14C7 

DMENUH 

0014 

HMENUL 

00C7 

DDCPY 

19DA 

DORD 

1E9C 

DOB 

1300 

D0303 

1625 

D080SH 

0016 

POSOSL 

.0023, 

_PPSVIC_ 

-PQQA_ 

.PP8WPP__ 

JFQQ.. 

now 

1EBE 

DPFM 

2009 

DRH 

259B 

DRUM 

0025 

imiiL 

009B 

DRT8 

1FEC 

DS 

ICA7 

DBH 

001C 

DPMI 

030B 

DBMIJj_0003 

_DStfIL_ 

QOOB_ 

J8KUTk_ 

J630_ 

nni 

00A7 

OSLO 

030A 

DBLOM 

0003 

DSLQL 

OOOA 

DBPL1 

2368 

DBPLIN 

236! 

D8PM80 

2356 

D3TAT8 

0303 

USX 

IDCO 

DTM 

14BB 

D1HM 

0014 

DTI ft- 

OOBB 

DU! 

I&50 

DU3 

IA5l 

DU4 

IA44 

DUJPT 

1607 

DUJPXH 

0016 

DUJPTL 

0007 

DULEN 

0140 

DUiENIf 

0001 

DDLENL 

0040 

DUN IT 

0301 

_PUNUH 

.00 OF._ 

PUPPSH- 

loco. 

duppil 

201F 

DWO 

17F7 

EC 

21 EE 

ECU 

0021 

EC1 

OOEE 

EDH 

0014 

. EDL 

00C1 

EDN 

I4C1 

ENUF 

1E66 

EOC 2331 

EOPEN 

.25FB_ 

fRRX 

2506 

ERR XI 

24FB 

ERRX2 - 

254E 

ERST 

2485 

ETN 

23F3 

EUN 

23F6 

FDP 

JAFt 

FDPH 

001A 

FDPL 

00F1 

KD 

2604 

FLD8_ .. 

1CPI. 

_ 

IC30_ 

FLL_ 

1C30 

FMINIT 

0788 

FM8 

0700 

FM1D8K 

1A87 

EMX 

1ABD 

FORMAT 

OOFE 

0C1 

19DC 

cm 

256F 

out* 

257F 

cnx 

257®. 

_OET€HR_ 

0006 

_CE1D_ 

255B_ 

©ETON ... 

2553 

QEIPIL 

229E 

0ETIG1 

2284 

OETLIN 

21F1 

0E1NAH 

2290 

DPI NO 

24BA 

OETRCD 

0004 

CUB 

24C7 

OIF 

1759 

PNII ..... 

24FF 

. OOHAND, 

.660? 

.DTI 

22DD 

012 .. 

22D5 

IIAT ADS 

031A 

HAT 8 

1C21 

HA1SL 

1C23 

IIATX 

1C2D 

HERRX 

2603 

HEXCON 

253A 

1BD 

1E0E 

IBDH 

001E 

1I*DL 

OOOE 

_ ICAXI _ 

034A 

1CAX2 

034B 

ICBAII 

0345 

KCDAIIZ 

0025 

ICBAL 

0344 

ICUALZ 

0024 

ICBLH 

0349 

ICBLL 

0340 

ICCOM 

0342 

ICDNO 

0341 

ICDNOZ 

0021 

iar*\ 

0340 

1CHIDZ 

0020 

IC1DN0 

002E 

ICSTA 

0343 

inn 

1F63 

IDDH 

001F 

i nni. 

0063 

IDRD 

182 A 


nrt a ft 













COLLEEN DISK UTILITIES 


iob 

iECi 

~ iplrif 

MAP 

IPTHH 

OOM 

IPTRL 

OOAF 

IROEN 

D20E 

I SCAR 

1B06 

I6D 

1F44 

ISDN 

001F 

iohl 

0044 

JMPTBL 

0010 

KDN 

MC4 

KDNH 

0014 

kuni 

00C4 

LBUFH 

0013 

LBUFL 

0051 

LDF1L 

1CB1 

u»r x 

1CD9 

LDND 

14BD 

LDNT 

299D 

LOOT 

MBB 

LFMO 

ICF3 

LINE 

1351 

LKFIL 

iDOg_ 

LKHO 

1D1D_ 

t NLF' 

2481 

LOAD 

24 OB 

LOADV 

1319 

LOCK 

0023 

IRS 

IEAE 

LR8I 

1FAB 

MAXDEV 

0021 

MDHt 

187C 

MRN2 

188G 

MDN3 

1094 

«EMLO_02E7_ 

. .. MEH10P. 

02E9 

MENU8L 

1691 

HENU8Z 

14A1 

MNA 

14B6 

tlfj 

rim. 

MBB 

MNOl. 

1691 

MNSLH 

0016 

MN3LL 

0091 

NCA 

1B1E 

NOAM 

G01B 

NCAL 

00 IE 

NDF 

17D3 

NWH. 

0017 

NIJFL 

00 D3 

ND8 

250B 

NOSH 

0029 

ND8L 

008B 

Hi F 

1 CDS 

NORM 

1E5C 

NRM 

1F34 

NRMH 

00 IF 

NR hi 

0034 

NBEG 

1DF5 NBI 

16E2 

_ 

0016 

NUH 

00E2 

NTL 

2340 

NTLII 

0023 

NT IX 

0048 

NXIOCB 

21CD 
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